diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 index 28cd1cd8f03..96831a8de82 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 @@ -7,18 +7,18 @@ 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 call tests_with_temp() 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 |