From 3b0cff13e448725520ea39925b69954365644567 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Wed, 6 Oct 2004 18:24:30 +0200 Subject: [PATCH] re PR fortran/17283 (UNPACK issues) PR fortran/17283 * gfortran.fortran-torture/execute/intrinsic_pack.f90: Enable new tests. From-SVN: r88610 --- gcc/testsuite/ChangeLog | 6 +++++- .../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 99ba040467e..a244c2aefad 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 * 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 427fe55ef14..28cd1cd8f03 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 -- 2.30.2