14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for C15523program main4 contains5 subroutine internal1() bind(c) ! ok6 end subroutine7 !ERROR: An internal or dummy procedure may not have a BIND(C,NAME=) binding label8 subroutine internal2() bind(c,name="internal2")9 end subroutine10 !ERROR: An internal or dummy procedure may not have a BIND(C,NAME=) binding label11 subroutine internal3() bind(c,name="")12 end subroutine13end14