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