1! { dg-do run }
2!
3! PR libfortran/51825
4! Test case regarding namelist problems with derived types
5
6program namelist
7
8    type d1
9        integer :: j = 0
10    end type d1
11
12    type d2
13        type(d1) k
14    end type d2
15
16    type d3
17        type(d2) d(2)
18    end type d3
19
20    type(d3) der
21    namelist /nmlst/ der
22
23    open (10, status='scratch')
24    write (10, '(a)') "&NMLST"
25    write (10, '(a)') " DER%D(1)%K%J = 1,"
26    write (10, '(a)') " DER%D(2)%K%J = 2,"
27    write (10, '(a)') "/"
28    rewind(10)
29    read(10, nml=nmlst)
30    close (10)
31
32    if (der%d(1)%k%j /= 1) STOP 1
33    if (der%d(2)%k%j /= 2) STOP 2
34end program namelist
35