13 lines
440 B
Fortran
13 lines
440 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 or dummy procedure may not have a BIND(C,NAME=) binding label
|
|
subroutine internal2() bind(c,name="internal2")
|
|
end subroutine
|
|
!ERROR: An internal or dummy procedure may not have a BIND(C,NAME=) binding label
|
|
subroutine internal3() bind(c,name="")
|
|
end subroutine
|
|
end
|