Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr95829.f90
blob: 081d647c7c060a381551eb509555d3e83c4ec71b [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
Declaration
of b used to be a bogus failure
.
subroutine s
(
a
,
b
,
c
,
d
,
e
,
f
,
g
)
type
(*)
::
a
type
(*
)
::
b
type
(
*)
::
c
type
(
*
)
::
d
type
(*
)
::
e
type
(
*)
::
f
type
(
*
)
::
g
end