diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03 b/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03 index 8e7d49b0fa8..308db8fb04b 100644 --- a/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03 +++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_4.f03 @@ -20,20 +20,20 @@ end module use m character (:), allocatable :: lhs lhs = foo ("foo calling ") - if (lhs .ne. "foo") call abort - if (len (lhs) .ne. 3) call abort + if (lhs .ne. "foo") STOP 1 + if (len (lhs) .ne. 3) STOP 2 deallocate (lhs) lhs = bar ("bar calling - baaaa!") - if (lhs .ne. "bar calling") call abort - if (len (lhs) .ne. 12) call abort + if (lhs .ne. "bar calling") STOP 3 + if (len (lhs) .ne. 12) STOP 4 deallocate (lhs) lhs = mfoo ("mfoo calling ") - if (lhs .ne. "foo") call abort - if (len (lhs) .ne. 3) call abort + if (lhs .ne. "foo") STOP 5 + if (len (lhs) .ne. 3) STOP 6 deallocate (lhs) lhs = mbar ("mbar calling - baaaa!") - if (lhs .ne. "bar calling") call abort - if (len (lhs) .ne. 12) call abort + if (lhs .ne. "bar calling") STOP 7 + if (len (lhs) .ne. 12) STOP 8 contains function foo (carg) result(res) character (:), allocatable :: res |