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