1! { dg-do compile } 2! 3! PR fortran/48858 4! 5! 6use iso_c_binding 7contains 8subroutine one() 9 bind(C, name="com1") :: /foo/ 10 integer(c_int) :: a 11 common /foo/ a 12end subroutine 13subroutine two() 14 integer(c_long) :: a 15 common /foo/ a 16end subroutine two 17end 18 19! { dg-final { scan-assembler "com1" } } 20! { dg-final { scan-assembler "foo_" } } 21