diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray_allocate_5.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_allocate_5.f08 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray_allocate_5.f08 b/gcc/testsuite/gfortran.dg/coarray_allocate_5.f08 index 2d8785420c9..161d18f6df3 100644 --- a/gcc/testsuite/gfortran.dg/coarray_allocate_5.f08 +++ b/gcc/testsuite/gfortran.dg/coarray_allocate_5.f08 @@ -18,10 +18,10 @@ allocate(some_local_object, source=foobar) - if (.not. allocated(foobar)) call abort() - if (lbound(foobar, 1) /= 1 .OR. ubound(foobar, 1) /= 10) call abort() - if (.not. allocated(some_local_object)) call abort() - if (any(some_local_object(:)%bar /= [99, 99, 99, 99, 99, 99, 99, 99, 99, 99])) call abort() + if (.not. allocated(foobar)) STOP 1 + if (lbound(foobar, 1) /= 1 .OR. ubound(foobar, 1) /= 10) STOP 2 + if (.not. allocated(some_local_object)) STOP 3 + if (any(some_local_object(:)%bar /= [99, 99, 99, 99, 99, 99, 99, 99, 99, 99])) STOP 4 deallocate(some_local_object) deallocate(foobar) |