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,*) "&params"
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