1! { dg-do run } 2! PR35627 Namelist read problem with short logical followed by read real 3program test 4 implicit none 5 LOGICAL :: nlco(200) ! (1:nbeam) 6 REAL(kind=8):: xlbtna(200) ! (1:nbeam) 7 NAMELIST/nbdrive_naml/ nlco, xlbtna 8 INTEGER :: nbshapa(200) ! (1:nbeam) 9 NAMELIST/nbdrive_naml/ nbshapa 10 nlco = .false. 11 xlbtna = 0.0_8 12 nbshapa = 0 13 open(10, file='t.nml') 14 write(10,'(a)') "&nbdrive_naml" 15 write(10,'(a)') "nlco = 4*T," 16 write(10,'(a)') "xlbtna = 802.8, 802.8, 802.8, 802.8" 17 write(10,'(a)') "nbshapa = 4*1" 18 write(10,'(a)') "/" 19 rewind(10) 20 read(10, nbdrive_naml) 21 !write(*,nbdrive_naml) 22 close(10, status="delete") 23end program test 24