diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/compile/nested.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 index 1059684ddd5..3b609bf3c06 100644 --- a/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/compile/nested.f90 @@ -7,17 +7,17 @@ program intrinsic_pack a = reshape (val, (/3, 3/)) b = 0 b(1:6:3) = pack (a, a .ne. 0); - if (any (b(1:6:3) .ne. (/9, 7/))) call abort + if (any (b(1:6:3) .ne. (/9, 7/))) STOP 1 b = pack (a(2:3, 2:3), a(2:3, 2:3) .ne. 0, (/1, 2, 3, 4, 5, 6/)); - if (any (b .ne. (/9, 7, 3, 4, 5, 6/))) call abort + if (any (b .ne. (/9, 7, 3, 4, 5, 6/))) STOP 2 contains subroutine tests_with_temp ! A few tests which involve a temporary - if (any (pack(a, a.ne.0) .ne. (/9, 7/))) call abort - if (any (pack(a, .true.) .ne. val)) call abort - if (size(pack (a, .false.)) .ne. 0) call abort - if (any (pack(a, .false., (/1,2,3/)).ne. (/1,2,3/))) call abort + if (any (pack(a, a.ne.0) .ne. (/9, 7/))) STOP 3 + if (any (pack(a, .true.) .ne. val)) STOP 4 + if (size(pack (a, .false.)) .ne. 0) STOP 5 + if (any (pack(a, .false., (/1,2,3/)).ne. (/1,2,3/))) STOP 6 end subroutine tests_with_temp end program |