diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocatable_dummy_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/allocatable_dummy_1.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocatable_dummy_1.f90 b/gcc/testsuite/gfortran.dg/allocatable_dummy_1.f90 index 9aba8b8fc6d..57a81f2c061 100644 --- a/gcc/testsuite/gfortran.dg/allocatable_dummy_1.f90 +++ b/gcc/testsuite/gfortran.dg/allocatable_dummy_1.f90 @@ -7,19 +7,19 @@ program alloc_dummy integer, allocatable :: b(:) call init(a) - if (.NOT.allocated(a)) call abort() - if (.NOT.all(a == [ 1, 2, 3 ])) call abort() + if (.NOT.allocated(a)) STOP 1 + if (.NOT.all(a == [ 1, 2, 3 ])) STOP 2 call useit(a, b) - if (.NOT.all(b == [ 1, 2, 3 ])) call abort() + if (.NOT.all(b == [ 1, 2, 3 ])) STOP 3 - if (.NOT.all(whatever(a) == [ 1, 2, 3 ])) call abort() + if (.NOT.all(whatever(a) == [ 1, 2, 3 ])) STOP 4 call kill(a) - if (allocated(a)) call abort() + if (allocated(a)) STOP 5 call kill(b) - if (allocated(b)) call abort() + if (allocated(b)) STOP 6 contains @@ -32,7 +32,7 @@ contains subroutine useit(x, y) integer, allocatable, intent(in) :: x(:) integer, allocatable, intent(out) :: y(:) - if (allocated(y)) call abort() + if (allocated(y)) STOP 7 call init(y) y = x end subroutine useit |