diff --git a/example/complex_transforms.f90 b/example/complex_transforms.f90 index f1ff0f5..feffcf0 100644 --- a/example/complex_transforms.f90 +++ b/example/complex_transforms.f90 @@ -33,7 +33,7 @@ program complex_transforms print complex_format, "fft_f = ", fft_f print complex_format, "f_round_trip = ",f_round_trip - !call assert(all(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