diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_47.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_47.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_47.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_47.f90 index 80a78f3852d..d3fa72c9b51 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_47.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_47.f90 @@ -14,10 +14,10 @@ res = my_AA%funct () - if (res%i .ne. 3) call abort - if (.not.associated (res%funct)) call abort - if (my_AA%i .ne. 4) call abort - if (associated (my_AA%funct)) call abort + if (res%i .ne. 3) STOP 1 + if (.not.associated (res%funct)) STOP 2 + if (my_AA%i .ne. 4) STOP 3 + if (associated (my_AA%funct)) STOP 4 contains function foo(A) |