re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I) when 128 <= I <= 255)

2004-09-03  David Billinghurst <David.Billinghurst@riotinto.com>

	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 428480c3b3c1b01e2055e60a8c46bb2a61937739..59773326057774cb72b7eb57ba9653259286e3f7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-03  David Billinghurst <David.Billinghurst@riotinto.com>
+
+       PR fortran/16579
+       * gfortran.fortran-torture/execute/intrinsic_i_char.f90:
+       Delete.  Duplicate of gfortran.dg/g77/20010610.f
+       
 2004-09-02  Mark Mitchell  <mark@codesourcery.com>
 
        * 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 (file)
index 19cab9f..0000000
--- 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