| ! { dg-do compile } | |
| ! | |
| ! PR fortran/48858 | |
| ! | |
| ! | |
| use iso_c_binding | |
| contains | |
| subroutine one() | |
| bind(C, name="com1") :: /foo/ | |
| integer(c_int) :: a | |
| common /foo/ a | |
| end subroutine | |
| subroutine two() | |
| integer(c_long) :: a | |
| common /foo/ a | |
| end subroutine two | |
| end | |
| ! { dg-final { scan-assembler "com1" } } | |
| ! { dg-final { scan-assembler "foo_" } } |