mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
19 lines
231 B
Fortran
19 lines
231 B
Fortran
! { 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
|
|
|
|
|