35 lines
859 B
Fortran
35 lines
859 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -funderscoring
|
|
|
|
subroutine conflict1()
|
|
end subroutine
|
|
|
|
!ERROR: BIND(C) procedure assembly name conflicts with non BIND(C) procedure assembly name
|
|
subroutine foo(x) bind(c, name="conflict1_")
|
|
real :: x
|
|
end subroutine
|
|
|
|
subroutine no_conflict1() bind(c, name="")
|
|
end subroutine
|
|
subroutine foo2() bind(c, name="conflict2_")
|
|
end subroutine
|
|
|
|
subroutine bar()
|
|
interface
|
|
subroutine no_conflict1() bind(c, name="")
|
|
end subroutine
|
|
! ERROR: Non BIND(C) procedure assembly name conflicts with BIND(C) procedure assembly name
|
|
subroutine conflict2()
|
|
end subroutine
|
|
end interface
|
|
call no_conflict1()
|
|
call conflict2
|
|
end subroutine
|
|
|
|
subroutine no_conflict2() bind(c, name="no_conflict2_")
|
|
end subroutine
|
|
|
|
subroutine _()
|
|
end subroutine
|
|
|
|
subroutine dash_no_conflict() bind(c, name="")
|
|
end subroutine
|