Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
common_21.f90
blob: 73a1b58a1ab525c89a4977c70db6adc728ebf4c4 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2008"
}
!
!
PR fortran
/
48858
!
subroutine test
integer
::
l
,
m
common
/
g
/
l
common
/
jj
/
m
bind
(
C
,
name
=
"bar"
)
::
/g/
bind
(
C
,
name
=
"foo"
)
::
/jj/
end
subroutine g
call jj
()
end