From 6df9867e9159eb2b84c6fb42276000a404d2232a Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Fri, 3 Sep 2004 03:29:10 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 6 ++++++ .../gfortran.fortran-torture/execute/intrinsic_i_char.f90 | 6 ------ 2 files changed, 6 insertions(+), 6 deletions(-) delete mode 100644 gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_i_char.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 428480c3b3c..59773326057 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 19cab9f7f89..00000000000 --- 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 -- 2.30.2