1! { dg-do run } 2! PR45532 gfortran namelist read error. 3! Derived from the original test case by David Sagan. 4program test 5implicit none 6type line_struct 7 integer :: width = 10 8end type 9type symbol_struct 10 integer :: typee = 313233 11end type 12type curve_struct 13 type (line_struct) line 14 type (symbol_struct) symbol 15end type 16type (curve_struct) curve(10) 17namelist / params / curve 18! 19open (10, status="scratch") 20write(10,*) "¶ms" 21write(10,*) " curve(1)%symbol%typee = 1234" 22write(10,*) "/" 23rewind(10) 24read (10, nml = params) 25if (curve(1)%symbol%typee /= 1234) call abort 26close(10) 27end program 28