From: David Billinghurst Date: Fri, 3 Sep 2004 03:29:10 +0000 (+0000) Subject: re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I) when 128 <= I <= 255) X-Git-Tag: releases/gcc-4.0.0~5268 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=6df9867e9159eb2b84c6fb42276000a404d2232a;p=thirdparty%2Fgcc.git re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I) when 128 <= I <= 255) 2004-09-03 David Billinghurst PR fortran/16579 * gfortran.fortran-torture/execute/intrinsic_i_char.f90: Delete. Duplicate of gfortran.dg/g77/20010610.f From-SVN: r87024 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 428480c3b3c1..597733260577 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-09-03 David Billinghurst + + PR fortran/16579 + * gfortran.fortran-torture/execute/intrinsic_i_char.f90: + Delete. Duplicate of gfortran.dg/g77/20010610.f + 2004-09-02 Mark Mitchell * g++.dg/abi/arm_rtti1.C: New test. diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_i_char.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_i_char.f90 deleted file mode 100644 index 19cab9f7f895..000000000000 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_i_char.f90 +++ /dev/null @@ -1,6 +0,0 @@ -! simple test for the CHAR and ICHAR intrinsics -! PR 16579 -DO I=0,255 - IF (ICHAR(CHAR(I)) /= I) CALL ABORT() -END DO -END