Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr70931.f90
blob: 08ecd687752649feb06bfafa2ddc1e648dd94dc5 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-g"
}
program p
type t
integer
::
a
integer
::
b
(
0
)
end
type
type
(
t
),
parameter
::
z
=
t
(
1
,
[
2
])
print
*,
z
end