Sign in
gnu
/
gcc
/
refs/heads/releases/gcc-6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr77380.f90
blob: f369be673a99dcb60c201bf07adc498dc0c3c417 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fcoarray=lib -O2"
}
program p
integer
::
z
(
2
)[*]
=
1
z
(:)[
1
]
=
z
(:)[*]
!
{
dg
-
error
"must be a scalar at"
}
end