blob: 924074b29211828e8d479c2294ae61944ff20969 [file] [log] [blame]
! { dg-do run }
!
! PR libfortran/51825 - Fortran runtime error: Cannot match namelist object name
! Test case derived from PR.
module local_mod
type mytype1
integer :: int1
end type
type mytype2
integer :: n_x
integer :: n_px
end type
type beam_init_struct
character(16) :: chars(1) = ''
type (mytype1) dummy
type (mytype2) grid(1)
end type
end module
program error_namelist
use local_mod
implicit none
type (beam_init_struct) beam_init
namelist / error_params / beam_init
open (10, status='scratch')
write (10, '(a)') "&error_params"
write (10, '(a)') " beam_init%chars(1)='JUNK'"
write (10, '(a)') " beam_init%grid(1)%n_x=3"
write (10, '(a)') " beam_init%grid(1)%n_px=2"
write (10, '(a)') "/"
rewind(10)
read(10, nml=error_params)
close (10)
if (beam_init%chars(1) /= 'JUNK') STOP 1
if (beam_init%grid(1)%n_x /= 3) STOP 2
if (beam_init%grid(1)%n_px /= 2) STOP 3
end program