Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
spread_init_expr_2.f90
blob: 19c27fadca8a2e4b4c56053326e56c2d7dfaab6a [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f95"
}
module
bug
integer
::
ibug
(
42
)
=
spread
(
42
,
1
,
42
)
!
{
dg
-
error
"invalid in an initialization expression"
}
end
module