diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pointer_remapping_10.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_remapping_10.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/pointer_remapping_10.f90 b/gcc/testsuite/gfortran.dg/pointer_remapping_10.f90 index 48105069c45..14938670829 100644 --- a/gcc/testsuite/gfortran.dg/pointer_remapping_10.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_remapping_10.f90 @@ -25,11 +25,11 @@ logical :: negative do i = 1, ubound(ptr,dim=2) do j = 1, ubound(ptr,dim=1) if (negative) then - if (-cnt /= ptr(j, i)) call abort() + if (-cnt /= ptr(j, i)) STOP 1 cnt = cnt + 1 negative = .false. else - if (cnt /= ptr(j, i)) call abort() + if (cnt /= ptr(j, i)) STOP 2 negative = .true. end if end do |