diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_12.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_12.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_12.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_12.f90 index 325703f499d..4989326132a 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_12.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_12.f90 @@ -6,7 +6,7 @@ procedure(integer),pointer :: p p => foo() -if (p(-1)/=1) call abort +if (p(-1)/=1) STOP 1 contains function foo() result(bar) procedure(integer),pointer :: bar |