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