Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr70931.f90
blob: 4444b5eec3b7f08b196f385d62253525fd1bee11 [
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
])
!
original invalid code
type
(
t
),
parameter
::
z
=
t
(
1
,
[
integer
::])
print
*,
z
end