diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_decl_18.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_decl_18.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_decl_18.f90 b/gcc/testsuite/gfortran.dg/proc_decl_18.f90 index c4216135106..7e98c86fc44 100644 --- a/gcc/testsuite/gfortran.dg/proc_decl_18.f90 +++ b/gcc/testsuite/gfortran.dg/proc_decl_18.f90 @@ -40,7 +40,7 @@ integer :: k,j(3),i(3) = (/1,2,3/) j = p(i,mysize) do k=1,mysize(i) - if (j(k) /= 2*i(k)) call abort() + if (j(k) /= 2*i(k)) STOP 1 end do end |