diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 index 1b146819f84..6baaf932ae9 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 @@ -41,12 +41,12 @@ real :: c = 1.2 fp => e1 -if (abs(fp(2.5)-7.5)>0.01) call abort() +if (abs(fp(2.5)-7.5)>0.01) STOP 1 sp => e2 call sp(c,3.4) -if (abs(c-4.6)>0.01) call abort() +if (abs(c-4.6)>0.01) STOP 2 end |