fix(example): stricter check of correct round trip

fortran-lang · Mar 17, 2024 · 797e8e6 · 797e8e6
1 parent 696f865
commit 797e8e6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/example/real-forward-transform.f90 b/example/real-forward-transform.f90
@@ -38,7 +38,7 @@ program forward_transform_of_real_function
   print complex_format, "f_hat = ", f_hat
   print real_format, "f_round_trip = ",f_round_trip
 
-  call assert(any(abs(f_round_trip - f) < tolerance), "inverse of forward FFT must yield the original function")
+  call assert(all(abs(f_round_trip - f) < tolerance), "inverse of forward FFT must yield the original function")
 
 contains