1! { dg-do run } 2! { dg-options "-fbackslash" } 3! PR36538 namelist failure with tabs preceding object name 4 program check1 5 integer x 6 namelist/casein/x 7 open(1, status="scratch") 8 write(1,'(a)') "&CASEIN" 9 write(1,'(a)') "\t\tx = 1" 10 write(1,'(a)') "/" 11 rewind(1) 12 x = 0 13 read(1,casein) 14 if (x.ne.1) call abort 15 end 16