gcc/testsuite/gfortran.dg/list_read_13.f

   1 c { dg-do run }
   2 c PR61049, reduced test case by  Dominique d'Humieres
   3       character(len=30) :: buff = ", (2.0, 3.0),,6.0D0, 2*,"
   4       DOUBLE PRECISION AVD, BVD, CVD, DVCORR
   5       COMPLEX AVC, BVC, CVC, ZVCORR
   6
   7       read(buff, *, err=10)  AVD, AVC, BVC, BVD, CVC, CVD
   8       goto 20
   9  10   STOP 1
  10  20   continue
  11       end
  12
  13