1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Check for C1552 3program main 4 contains 5 subroutine internal1() bind(c) ! ok 6 end subroutine 7 !ERROR: An internal or dummy procedure may not have a BIND(C,NAME=) binding label 8 subroutine internal2() bind(c,name="internal2") 9 end subroutine 10 !ERROR: An internal or dummy procedure may not have a BIND(C,NAME=) binding label 11 subroutine internal3() bind(c,name="") 12 end subroutine 13end 14