Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr69962.f90
blob: 2684398ee311aaf8537ea280938bbeb958275a31 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
program p
integer
::
n
=
1
character
(
3
),
parameter
::
x
(
2
)
=
[
'abc'
,
'xyz'
]
character
(
2
),
parameter
::
y
(
2
)
=
[
x
(
2
)(
2
:
3
),
x
(
n
)(
1
:
2
)]
!
{
dg
-
error
"CHARACTER length must be a constant"
}
end