diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 index 807aadf136f..88f09c321b4 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_unpack.f90 @@ -2,6 +2,7 @@ program intrinsic_unpack integer, dimension(3, 3) :: a, b logical, dimension(3, 3) :: mask; + character(len=50) line1, line2 integer i mask = reshape ((/.false.,.true.,.false.,.true.,.false.,.false.,& @@ -10,6 +11,9 @@ program intrinsic_unpack b = unpack ((/2, 3, 4/), mask, a) if (any (b .ne. reshape ((/1, 2, 0, 3, 1, 0, 0, 0, 4/), (/3, 3/)))) & call abort + write (line1,'(10I4)') b + write (line2,'(10I4)') unpack((/2, 3, 4/), mask, a) + if (line1 .ne. line2) call abort b = -1 b = unpack ((/2, 3, 4/), mask, 0) if (any (b .ne. reshape ((/0, 2, 0, 3, 0, 0, 0, 0, 4/), (/3, 3/)))) & |