! { dg-do run } ! PR35627 Namelist read problem with short logical followed by read real program test implicit none LOGICAL :: nlco(200) ! (1:nbeam) REAL(kind=8):: xlbtna(200) ! (1:nbeam) NAMELIST/nbdrive_naml/ nlco, xlbtna INTEGER :: nbshapa(200) ! (1:nbeam) NAMELIST/nbdrive_naml/ nbshapa nlco = .false. xlbtna = 0.0_8 nbshapa = 0 open(10, file='t.nml') write(10,'(a)') "&nbdrive_naml" write(10,'(a)') "nlco = 4*T," write(10,'(a)') "xlbtna = 802.8, 802.8, 802.8, 802.8" write(10,'(a)') "nbshapa = 4*1" write(10,'(a)') "/" rewind(10) read(10, nbdrive_naml) !write(*,nbdrive_naml) close(10, status="delete") end program test