diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_6.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_6.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_6.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_6.f90 index 6a5c7e5f462..2c70c0bc031 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_6.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_6.f90 @@ -18,10 +18,10 @@ INTEGER :: k = 0 ptr1 => foo call s_in(ptr1,k) -if (k /= 6) call abort() +if (k /= 6) STOP 1 call s_out(ptr2) -if (ptr2(-3.0) /= 3.0) call abort() +if (ptr2(-3.0) /= 3.0) STOP 2 contains |