gcc-4.9/gcc/testsuite/gfortran.dg/list_read_13.f


1
2
3
4
5
6
7
8
9
10
11
12
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