flang/test/Semantics/bind-c03.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Check for C1521
   3 ! If proc-language-binding-spec (bind(c)) is specified, the proc-interface
   4 ! shall appear, it shall be an interface-name, and interface-name shall be
   5 ! declared with a proc-language-binding-spec.
   6
   7 module m
   8
   9   interface
  10     subroutine proc1() bind(c)
  11     end
  12     subroutine proc2()
  13     end
  14   end interface
  15
  16   procedure(proc1), bind(c) :: pc1 ! no error
  17
  18   !ERROR: An interface name with BIND attribute must be specified if the BIND attribute is specified in a procedure declaration statement
  19   procedure(proc2), bind(c) :: pc2
  20
  21   !ERROR: An interface name with BIND attribute must be specified if the BIND attribute is specified in a procedure declaration statement
  22   procedure(integer), bind(c) :: pc3
  23
  24 end