Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
analyzer
/
pr93778.f90
blob: 9112e4980ea49faf2b83c8d242bf8eaa723b54e4 [
file
] [
log
] [
blame
]
program h0
type bl
integer jq
end
type bl
type qn
type
(
bl
),
dimension
(
3
)
::
xi
end
type qn
type
(
qn
)
ro
namelist
/
i2
/
ro
read
(
10
,
nml
=
i2
)
end
program h0