! 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