Small error: asymmetry in allocate()/deallocate() #ifdefs

9d45ffb7 · Lorenz Huedepohl · 17437c81 · 9d45ffb7
Commit 9d45ffb7 authored Jul 20, 2017 by Lorenz Huedepohl
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

test/Fortran/test.F90 test/Fortran/test.F90 +1 -1

No files found.
--- a/test/Fortran/test.F90
+++ b/test/Fortran/test.F90
@@ -401,7 +401,7 @@ program test
   deallocate(z)
   deallocate(ev)

-#ifdef __EIGENVALUES
+#if defined(__EIGENVALUES) || defined(__SOLVE_TRIDIAGONAL)
   deallocate(d, ds)
   deallocate(sd, sds)
   deallocate(ev_analytic)