diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cdd4924a602..ead4a32f1b6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-05-06 Jerry DeLisle + + PR libfortran/61049 + * gfortran.dg/list_read_13.f: New test. + 2014-05-06 Kenneth Zadeck Mike Stump Richard Sandiford diff --git a/gcc/testsuite/gfortran.dg/list_read_13.f b/gcc/testsuite/gfortran.dg/list_read_13.f new file mode 100644 index 00000000000..0f8efd86c30 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/list_read_13.f @@ -0,0 +1,13 @@ +c { dg-do run } +c PR61049, reduced test case by Dominique d'Humieres + character(len=30) :: buff = ", (2.0, 3.0),,6.0D0, 2*," + DOUBLE PRECISION AVD, BVD, CVD, DVCORR + COMPLEX AVC, BVC, CVC, ZVCORR + + read(buff, *, err=10) AVD, AVC, BVC, BVD, CVC, CVD + goto 20 + 10 call abort + 20 continue + end + +