+
−! { dg-do run }
+
−! PR36582 Namelist I/O error: Bogus "Cannot match namelist object"
+
−! Test case derived from PR.
+
−module mod1
+
−
+
−type screen_io_type
+
−integer :: begin
+
−end type screen_io_type
+
−
+
−type adjoint_type
+
−type(screen_io_type) :: screen_io_fs_ntime
+
−character(12) :: solver_type
+
−end type adjoint_type
+
−
+
−type(adjoint_type) :: adjoint
+
−namelist/info_adjoint/adjoint
+
−
+
−end module mod1
+
−
+
−program gfortran_error_2
+
−use mod1
+
−adjoint%solver_type = "abcdefghijkl"
+
−open(31,status='scratch')
+
−write(31, '(a)') "&info_adjoint"
+
−write(31, '(a)') "adjoint%solver_type = 'direct'"
+
−write(31, '(a)') "adjoint%screen_io_fs_ntime%begin = 42"
+
−write(31, '(a)') "/"
+
−rewind(31)
+
−read(31,nml=info_adjoint)
+
−if (adjoint%solver_type /= 'direct') STOP 1
+
−if (adjoint%screen_io_fs_ntime%begin /= 42) STOP 2
+
−end program gfortran_error_2