From 9c1eb332b0be418524796f1265083808bbb5319f Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 5 Jun 2016 19:58:38 +0000 Subject: [PATCH] re PR fortran/71404 (416.gamess in SPEC CPU 2006 failed to build) 2016-06-05 Jerry DeLisle PR fortran/71404 * gfortran.dg/fmt_read_5.f: New test. From-SVN: r237109 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_read_5.f | 8 ++++++++ 2 files changed, 13 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_read_5.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 583a7cf9066..e1df37bf431 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-06-05 Jerry DeLisle + + PR fortran/71404 + * gfortran.dg/fmt_read_5.f: New test. + 2016-06-05 Andre Vehreschild 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 index 00000000000..c41e149cf3e --- /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 -- 2.30.2