OSDN Git Service

2013-04-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / namelist_78.f90
1 ! { dg-do run }
2 !
3 ! PR libfortran/51825
4 ! Test case regarding namelist problems with derived types
5
6 program 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) call abort
33     if (der%d(2)%k%j /= 2) call abort
34 end program namelist