re PR fortran/71404 (416.gamess in SPEC CPU 2006 failed to build)

2016-06-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/71404
	* gfortran.dg/fmt_read_5.f: New test.

From-SVN: r237109

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 583a7cf9066031542ac0aa19441b3a206d74eae7..e1df37bf431c7915356db8d95d008b3f803b8693 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2016-06-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/71404
+       * gfortran.dg/fmt_read_5.f: New test.
+
 2016-06-05  Andre Vehreschild  <vehre@gcc.gnu.org>
 
        PR fortran/69659

diff --git a/gcc/testsuite/gfortran.dg/fmt_read_5.f b/gcc/testsuite/gfortran.dg/fmt_read_5.f
new file mode 100644 (file)
index 0000000..c41e149
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_read_5.f
@@ -0,0 +1,8 @@
+c  { dg-do compile }
+c  PR71404 [7 Regression] 416.gamess in SPEC CPU 2006 failed to build
+      SUBROUTINE SQRINT (LFILE,IREGION,LENGTH)
+      DIMENSION IREGION(LENGTH)
+      LOGICAL DSKWRK,MASWRK
+      IF (DSKWRK.OR.MASWRK) READ(LFILE, END=200) IREGION
+  200 CONTINUE
+      END