diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/save_5.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/save_5.f90 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/testsuite/gfortran.dg/save_5.f90 b/gcc/testsuite/gfortran.dg/save_5.f90 index 20d3b7ad88a..bf8d5995637 100644 --- a/gcc/testsuite/gfortran.dg/save_5.f90 +++ b/gcc/testsuite/gfortran.dg/save_5.f90 @@ -11,8 +11,8 @@ subroutine foo(i) integer :: i integer, allocatable :: j if (i == 1) j = 42 - if (.not. allocated (j)) call abort () - if (j /= 42) call abort () + if (.not. allocated (j)) STOP 1 + if (j /= 42) STOP 2 end ! Deferred-length string scalar @@ -21,12 +21,12 @@ subroutine bar() character(len=:), allocatable :: str if (first) then first = .false. - if (allocated (str)) call abort () + if (allocated (str)) STOP 3 str = "ABCDEF" end if - if (.not. allocated (str)) call abort () - if (len (str) /= 6) call abort () - if (str(1:6) /= "ABCDEF") call abort () + if (.not. allocated (str)) STOP 4 + if (len (str) /= 6) STOP 5 + if (str(1:6) /= "ABCDEF") STOP 6 end subroutine bar ! Deferred-length string array @@ -35,12 +35,12 @@ subroutine bar_array() character(len=:), allocatable :: str if (first) then first = .false. - if (allocated (str)) call abort () + if (allocated (str)) STOP 7 str = "ABCDEF" end if - if (.not. allocated (str)) call abort () - if (len (str) /= 6) call abort () - if (str(1:6) /= "ABCDEF") call abort () + if (.not. allocated (str)) STOP 8 + if (len (str) /= 6) STOP 9 + if (str(1:6) /= "ABCDEF") STOP 10 end subroutine bar_array call foo(1) |