diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/list_read_13.f')
| -rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/list_read_13.f | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/list_read_13.f b/gcc-4.9/gcc/testsuite/gfortran.dg/list_read_13.f new file mode 100644 index 000000000..0f8efd86c --- /dev/null +++ b/gcc-4.9/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 + + |