36 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -funderscoring2 3subroutine conflict1()4end subroutine5 6!ERROR: BIND(C) procedure assembly name conflicts with non BIND(C) procedure assembly name7subroutine foo(x) bind(c, name="conflict1_")8 real :: x9end subroutine10 11subroutine no_conflict1() bind(c, name="")12end subroutine13subroutine foo2() bind(c, name="conflict2_")14end subroutine15 16subroutine bar()17 interface18 subroutine no_conflict1() bind(c, name="")19 end subroutine20 ! ERROR: Non BIND(C) procedure assembly name conflicts with BIND(C) procedure assembly name21 subroutine conflict2()22 end subroutine23 end interface24 call no_conflict1()25 call conflict226end subroutine27 28subroutine no_conflict2() bind(c, name="no_conflict2_")29end subroutine30 31subroutine _()32end subroutine33 34subroutine dash_no_conflict() bind(c, name="")35end subroutine36