OSDN Git Service

2013-04-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / namelist_77.f90
1 ! { dg-do run }
2 !
3 ! PR libfortran/51825 - Fortran runtime error: Cannot match namelist object name
4 ! Test case derived from PR.
5
6 module local_mod
7
8     type mytype1
9         integer :: int1
10     end type
11
12     type mytype2
13         integer :: n_x       
14         integer :: n_px        
15     end type
16
17     type beam_init_struct
18         character(16) :: chars(1) = ''                                  
19         type (mytype1) dummy
20         type (mytype2) grid(1)      
21     end type
22
23 end module
24
25 program error_namelist
26
27     use local_mod
28
29     implicit none
30
31     type (beam_init_struct) beam_init
32
33     namelist / error_params / beam_init
34
35     open (10, status='scratch')
36     write (10, '(a)') "&error_params"
37     write (10, '(a)') "  beam_init%chars(1)='JUNK'"
38     write (10, '(a)') "  beam_init%grid(1)%n_x=3"
39     write (10, '(a)') "  beam_init%grid(1)%n_px=2"
40     write (10, '(a)') "/"
41     rewind(10)
42     read(10, nml=error_params)
43     close (10)
44
45     if (beam_init%chars(1) /= 'JUNK') call abort
46     if (beam_init%grid(1)%n_x /= 3) call abort
47     if (beam_init%grid(1)%n_px /= 2) call abort
48
49 end program