From 797e8e6735a108da0b531ebd4523a229aad16148 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Sun, 17 Mar 2024 13:19:54 -0700 Subject: [PATCH] fix(example): stricter check of correct round trip --- example/real-forward-transform.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/example/real-forward-transform.f90 b/example/real-forward-transform.f90 index 5c9176b..8e0d902 100644 --- 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