1! { dg-do run } 2! { dg-options "-O0" } 3! Test patch for PR24416.f90 - a used to come back from the read with var 4! prepended. 5! 6 IMPLICIT NONE 7 CHARACTER(len=10) :: var = "hello" 8 character(len=10) :: a = "" 9 NAMELIST /inx/ var 10 11 OPEN(unit=11, status='scratch') 12 write (11, *) "&INX" 13 write (11, *) " var = 'goodbye'" 14 write (11, *) "&END" 15 rewind (11) 16 17 READ(11,NML=inx) 18 CLOSE(11) 19 20 OPEN(unit=11, status='scratch') 21 write (11, *) "alls_well" 22 rewind (11) 23 24 READ(11,*) a 25 CLOSE(11) 26 27 if (a /= "alls_well") STOP 1 28 29END 30