diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_23.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_23.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_23.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_23.f90 index ee947122f2b..20f4f60dbb6 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_23.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_23.f90 @@ -9,7 +9,7 @@ procedure(character(len=5)), pointer :: pp pp => abc print *,pp() str = pp() -if (str/='abcde') call abort() +if (str/='abcde') STOP 1 contains function abc() character(len=5) :: abc |