1 files changed, 1 insertions, 1 deletions

diff --git a/src/f1.f90 b/src/f1.f90
index 1c3ced5..e1e621e 100644
--- a/src/f1.f90
+++ b/src/f1.f90
@@ -62,7 +62,7 @@ PROGRAM test
 
   DO i = 1, ncomplex
 
-     write(*,*) abs(arr_complex(i))
+     write(*,*) i - 1, " ", abs(arr_complex(i))
      
   END DO