diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-06 18:24:30 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-06 18:24:30 +0200 |
| commit | 3b0cff13e448725520ea39925b69954365644567 (patch) | |
| tree | 5b124df9b0d153927333a8aea833370f440d0bfb /gcc | |
| parent | 5d24a9774e7e5e40c0b0394de971ac4d4d8c521f (diff) | |
| download | gcc-3b0cff13e448725520ea39925b69954365644567.zip gcc-3b0cff13e448725520ea39925b69954365644567.tar.gz gcc-3b0cff13e448725520ea39925b69954365644567.tar.bz2 | |
re PR fortran/17283 (UNPACK issues)
PR fortran/17283
* gfortran.fortran-torture/execute/intrinsic_pack.f90: Enable new
tests.
From-SVN: r88610
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 | 3 |
2 files changed, 6 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 99ba040..a244c2a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -2,7 +2,11 @@ PR fortran/17568 * gfortran.dg/ishft.f90: New test. - + + PR fortran/17283 + * gfortran.fortran-torture/execute/intrinsic_pack.f90: Enable new + tests. + 2004-10-06 Paul Brook <paul@codesourcery.com> * gfortran.dg/do_1.f90: New test. diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 index 427fe55..28cd1cd 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_pack.f90 @@ -11,8 +11,7 @@ program intrinsic_pack 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 -! this is waiting for PR 17756 to be fixed -! call tests_with_temp() + call tests_with_temp() contains subroutine tests_with_temp ! A few tests which involve a temporary |