From: Tobias Schlüter Date: Wed, 6 Oct 2004 16:24:30 +0000 (+0200) Subject: re PR fortran/17283 (UNPACK issues) X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3b0cff13e448725520ea39925b69954365644567;p=platform%2Fupstream%2Fgcc.git re PR fortran/17283 (UNPACK issues) PR fortran/17283 * gfortran.fortran-torture/execute/intrinsic_pack.f90: Enable new tests. From-SVN: r88610 --- 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 * 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