mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-16 21:56:34 +00:00
1062c140f8
Defining a procedure with a BIND(C, NAME="...") where the binding label matches the assembly name of a non BIND(C) external procedure in the same file causes a failure when generating the LLVM IR because of the assembly symbol name clash. Prevent this crash with a clearer semantic error.
36 lines
859 B
Fortran
36 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
|