cfd474e0d0
If BIND(C) appears on an internal procedure, it must have a null binding label, i.e. BIND(C,NAME=""). Also address conflicts with D127725 which was merged during development. Differential Revision: https://reviews.llvm.org/D128676
14 lines
422 B
Fortran
14 lines
422 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Check for C1552
|
|
program main
|
|
contains
|
|
subroutine internal1() bind(c) ! ok
|
|
end subroutine
|
|
!ERROR: An internal procedure may not have a BIND(C,NAME=) binding label
|
|
subroutine internal2() bind(c,name="internal2")
|
|
end subroutine
|
|
!ERROR: An internal procedure may not have a BIND(C,NAME=) binding label
|
|
subroutine internal3() bind(c,name="")
|
|
end subroutine
|
|
end
|