Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/namelist_88.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! PR69668 Error reading namelist opened with DELIM='NONE'
kono
parents:
diff changeset
3 program namelist
kono
parents:
diff changeset
4 implicit none
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 integer,parameter :: tabsz=10
kono
parents:
diff changeset
7 integer :: i
kono
parents:
diff changeset
8 character(len=10),dimension(tabsz) :: tab
kono
parents:
diff changeset
9 namelist/tab_nml/tab
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 tab(:)='invalid'
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 ! Create a temporary test namelist file
kono
parents:
diff changeset
14 open(unit=23,status='scratch',delim='none')
kono
parents:
diff changeset
15 write(23,*) "&tab_nml"
kono
parents:
diff changeset
16 write(23,*) "tab(1)='in1',"
kono
parents:
diff changeset
17 write(23,*) "tab(2)='in2'"
kono
parents:
diff changeset
18 write(23,*) "/"
kono
parents:
diff changeset
19 rewind(23)
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 read(unit=23,nml=tab_nml)
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 close(unit=23)
kono
parents:
diff changeset
24
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
25 if (tab(1).ne.'in1') STOP 1
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
26 if (tab(2).ne.'in2') STOP 2
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
27 if (any(tab(3:tabsz).ne.'invalid')) STOP 3
111
kono
parents:
diff changeset
28
kono
parents:
diff changeset
29 end program namelist