1! { dg-do compile } 2! { dg-options "-std=f2008" } 3! 4! PR fortran/48858 5! 6subroutine test 7 integer :: l, m 8 common /g/ l 9 common /jj/ m 10 bind(C,name="bar") :: /g/ 11 bind(C,name="foo") :: /jj/ 12end 13 14subroutine g 15 call jj() 16end 17 18 19