diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocate_with_source_12.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_with_source_12.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocate_with_source_12.f03 b/gcc/testsuite/gfortran.dg/allocate_with_source_12.f03 index 76deb6174db..5dcf0ec9bf6 100644 --- a/gcc/testsuite/gfortran.dg/allocate_with_source_12.f03 +++ b/gcc/testsuite/gfortran.dg/allocate_with_source_12.f03 @@ -21,11 +21,11 @@ program z ! write (*,*) tmp( 1, :) allocate (d(DIM1_SIZE / 2, 2), source = tmp(1 : DIM1_SIZE / 2, :) , stat=errstat) - if (any (d .ne. tmp(1:DIM1_SIZE/2,:))) call abort + if (any (d .ne. tmp(1:DIM1_SIZE/2,:))) STOP 1 deallocate (d) allocate (d(DIM1_SIZE / 2, 2), source = foo (tmp(1 : DIM1_SIZE / 2, :)) , stat=errstat) - if (any (d .ne. tmp(1 : DIM1_SIZE / 2, :))) call abort + if (any (d .ne. tmp(1 : DIM1_SIZE / 2, :))) STOP 2 deallocate (tmp , d) |