diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90 index cbb69f1d50e..5e53ee4e44d 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90 @@ -27,27 +27,27 @@ pp => x%ppc call sub(1) - if (sum/=1) call abort + if (sum/=1) STOP 1 call pp(2) - if (sum/=3) call abort + if (sum/=3) STOP 2 call x%ppc(3) - if (sum/=6) call abort + if (sum/=6) STOP 3 ! calling object as argument x%proc => sub2 call x%proc(x) - if (x%i/=7) call abort + if (x%i/=7) STOP 4 ! type extension x%proc => sub call x%proc(4) - if (sum/=10) call abort + if (sum/=10) STOP 5 x2%proc => sub call x2%proc(5) - if (sum/=15) call abort + if (sum/=15) STOP 6 x2%proc2 => sub call x2%proc2(6) - if (sum/=21) call abort + if (sum/=21) STOP 7 contains |