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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/g77/20010610.f

+c { dg-do run }
+      DO I = 0, 255
+         IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
+      ENDDO
+      END

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