repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
namelist_73.f90
blob
031491b56eef19bb9875a929639baf51efb38ae4
1
! { dg-do run }
2
!
3
! PR fortran/50109
4
!
5
! Contributed by Jim Hanson
6
!
7
program
namelist_test
8
9
integer
nfp
10
namelist
/
indata
/
nfp
11
12
nfp
=
99
13
open
(
unit
=
4
,
status
=
'scratch'
)
14
write
(
4
,
'(a)'
)
'$indata'
15
write
(
4
,
'(a)'
)
'NFP = 5,'
16
write
(
4
,
'(a)'
)
"! "
17
write
(
4
,
'(a)'
)
"! "
18
write
(
4
,
'(a)'
)
"! "
19
write
(
4
,
'(a)'
)
'/'
20
21
rewind
(
4
)
22
read
(
4
,
nml
=
indata
)
23
close
(
4
)
24
25
! write(*,*) nfp
26
if
(
nfp
/=
5
)
STOP
1
27
28
end