diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/move_alloc.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/move_alloc.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/move_alloc.f90 b/gcc/testsuite/gfortran.dg/move_alloc.f90 index 2d8217750d1..df8b910077a 100644 --- a/gcc/testsuite/gfortran.dg/move_alloc.f90 +++ b/gcc/testsuite/gfortran.dg/move_alloc.f90 @@ -17,23 +17,23 @@ program test_move_alloc x = [ 42, 77 ] call move_alloc (x, y) - if (allocated(x)) call abort() - if (.not.allocated(y)) call abort() - if (any(y /= [ 42, 77 ])) call abort() + if (allocated(x)) STOP 1 + if (.not.allocated(y)) STOP 2 + if (any(y /= [ 42, 77 ])) STOP 3 a = [ "abcd", "efgh" ] call move_alloc (a, b) - if (allocated(a)) call abort() - if (.not.allocated(b)) call abort() - if (any(b /= [ "abcd", "efgh" ])) call abort() + if (allocated(a)) STOP 4 + if (.not.allocated(b)) STOP 5 + if (any(b /= [ "abcd", "efgh" ])) STOP 6 ! Now one of the intended applications of move_alloc; resizing call move_alloc (y, temp) allocate (y(6), stat=i) - if (i /= 0) call abort() + if (i /= 0) STOP 7 y(1:2) = temp y(3:) = 99 deallocate(temp) - if (any(y /= [ 42, 77, 99, 99, 99, 99 ])) call abort() + if (any(y /= [ 42, 77, 99, 99, 99, 99 ])) STOP 8 end program test_move_alloc |