1c { dg-do run }
2c 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   call abort
10 20   continue
11      end
12
13
14