20010610.f: New.

2001-06-10  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/20010610.f: New.

From-SVN: r43143

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1a0a6d9d76081a4d2315aca9af3479fa5aa9b05b..acfa9fc836519089af3c6e81c68d176d07319410 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-10  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+       * g77.f-torture/execute/20010610.f: New.
+
 2001-06-09  David Billinghurst  <David.Billinghurst@riotinto.com>
 
        * g++.dg/mangle1.C: Change regex to allow USER_LABEL_PREFIX == "_"

diff --git a/gcc/testsuite/g77.f-torture/execute/20010610.f b/gcc/testsuite/g77.f-torture/execute/20010610.f
new file mode 100644 (file)
index 0000000..4ce2d22
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20010610.f
@@ -0,0 +1,4 @@
+      DO I = 0, 255
+         IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
+      ENDDO
+      END