26 lines
690 B
Fortran
26 lines
690 B
Fortran
! { dg-do run }
|
|
! PR40853 Error in namelist IO.
|
|
! Test case derived from example given in PR. < jvdelisle@gcc.gnu.org >
|
|
program test
|
|
implicit none
|
|
type tao_title_struct
|
|
character(2) justify
|
|
end type
|
|
type tao_plot_page_struct
|
|
real shape_height_max
|
|
type (tao_title_struct) title ! Comment this line out and the bug goes away.
|
|
real size(2)
|
|
end type
|
|
type (tao_plot_page_struct) plot_page
|
|
namelist / params / plot_page
|
|
open (10, status="scratch")
|
|
write(10,'(a)')" ¶ms"
|
|
write(10,'(a)')" plot_page%size=5 , 2,"
|
|
write(10,'(a)')"/"
|
|
rewind(10)
|
|
read (10, nml = params)
|
|
if (any(plot_page%size .ne. (/ 5, 2 /))) call abort
|
|
close (10)
|
|
end program
|
|
|