Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
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
