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

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

	PR fortran/16579
	* gfortran.dg/g77/20010610.f: Now passes.
	Copy from g77.f-torture/execute. Add dg-run directive.
	* gfortran.dg/g77/README: Update

From-SVN: r86876

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e74cfac1df7ae82ac903dbf14b89953f8dafdbe8..d2fdc6a4a0bfb726044d1a7d2de1aaaa4e2f7e13 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-01  David Billinghurst <David.Billinghurst@riotinto.com>
+
+       PR fortran/16579
+       * gfortran.dg/g77/20010610.f: Now passes.
+       Copy from g77.f-torture/execute. Add dg-run directive.
+       * gfortran.dg/g77/README: Update
+
 2004-08-31  Andrew Pinski  <pinskia@physics.uc.edu>
 
        * gcc.dg/rs6000-power2-1.c (t1, t2, t3, t4): Add volatile.

diff --git a/gcc/testsuite/gfortran.dg/g77/20010610.f b/gcc/testsuite/gfortran.dg/g77/20010610.f
new file mode 100644 (file)
index 0000000..5adbcd6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/20010610.f
@@ -0,0 +1,5 @@
+c { dg-do run }
+      DO I = 0, 255
+         IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
+      ENDDO
+      END

diff --git a/gcc/testsuite/gfortran.dg/g77/README b/gcc/testsuite/gfortran.dg/g77/README
index 2605369f2c2f3b6c056399f4e2993d5e047514a7..4e143e44cf475cb2528655ae6492cadf40d23112 100755 (executable)
--- a/gcc/testsuite/gfortran.dg/g77/README
+++ b/gcc/testsuite/gfortran.dg/g77/README
@@ -135,7 +135,7 @@ g77.f-torture/execute
 20010116.f                     Y
 20010426.f renamed 20010426-1.f        Y 
 20010430.f                     Y
-20010610.f                     F PR 16579 Execution test fails
+20010610.f                     Y
 5122.f                         - Assembler failure
 6177.f                         Y
 6367.f & 6367.x