From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Sun, 10 Jun 2001 17:57:29 +0000 (+0200)
Subject: 20010610.f: New.
X-Git-Tag: prereleases/libstdc++-3.0.95~3877
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=226f8242c0e8898a8e86d8c280f026d8bb0223bb;p=thirdparty%2Fgcc.git

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 1a0a6d9d7608..acfa9fc83651 100644
--- 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
index 000000000000..4ce2d22147a9
--- /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