gcc/testsuite/gfortran.dg/namelist_46.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! PR35627 Namelist read problem with short logical followed by read real
   3 program 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")
  23 end program test