Sign in
gnu
/
gcc
/
fe115e3147d7d8adf8c94451cc33c9b177293f29
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr70870_1.f90
blob: 0f9584a36dbfb2d63e9b3373a785b6b53dcdf7ce [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
70870
!
Contributed
by
Vittorio
Zecca
<
zeccav at gmail dot com
>
type t
integer
::
g
=
0
!
default
initialization
end
type
type
(
t
)
::
v2
data v2
/
t
(
2
)/
!
{
dg
-
error
"default initialization shall not"
}
end