flang/test/Semantics/bind-c05.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Check for C1552
   3 program 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
  13 end