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 procedure may not have a BIND(C,NAME=) binding label
8  subroutine internal2() bind(c,name="internal2")
9  end subroutine
10  !ERROR: An internal procedure may not have a BIND(C,NAME=) binding label
11  subroutine internal3() bind(c,name="")
12  end subroutine
13end
14