Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/factory-ryu-6486.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
intent_out_8.f90
blob: 674d8338bfaacc8e3677c0c4f8a1761a11a17df1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Wall"
}
!
!
PR
53655
:
[
F03
]
"default initializer"
warnings
!
!
Contributed
by
Tobias
Burnus
<
burnus@gcc
.
gnu
.
org
>
type t
end
type t
contains
subroutine foo
(
x
)
type
(
t
),
intent
(
out
)
::
x
end
subroutine
end