1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
! { dg-do run }
! PR libfortran/52512 - Cannot match namelist object name
! Test case derived from PR.
program testje
implicit none
integer :: getal, jn
type ptracer
character(len = 8) :: sname !: short name
logical :: lini !: read in a file or not
end type ptracer
type(ptracer) , dimension(3) :: tracer
namelist/namtoptrc/ getal,tracer
! standard values
getal = 9999
do jn = 1, 3
tracer(jn)%sname = 'default_name'
tracer(jn)%lini = .false.
end do
open (10, status='scratch')
write (10, '(a)') "&namtoptrc"
write (10, '(a)') " getal = 7"
write (10, '(a)') " tracer(1) = 'DIC ', .true."
write (10, '(a)') " tracer(2) = 'Alkalini', .true."
write (10, '(a)') " tracer(3) = 'O2 ', .true."
write (10, '(a)') "/"
rewind(10)
read(10, nml=namtoptrc)
close (10)
if (getal /= 7) call abort
if (tracer(1)%sname /= 'DIC ') call abort
if (tracer(2)%sname /= 'Alkalini') call abort
if (tracer(3)%sname /= 'O2 ') call abort
if (.not. tracer(1)%lini) call abort
if (.not. tracer(2)%lini) call abort
if (.not. tracer(3)%lini) call abort
end program testje
|
