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