From: jvdelisle Date: Sun, 5 Jun 2016 19:58:38 +0000 (+0000) Subject: 2016-06-05 Jerry DeLisle X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=c5899606a1547beca120f9057f2beb7ea30f75e7;p=thirdparty%2Fgcc.git 2016-06-05 Jerry DeLisle PR fortran/71404 * gfortran.dg/fmt_read_5.f: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@237109 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 583a7cf90660..e1df37bf431c 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 000000000000..c41e149cf3ea --- /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