flang/test/Semantics/bind-c01.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 ! Check for multiple symbols being defined with with same BIND(C) name
   4
   5 module m1
   6   integer, bind(c, name="x1") :: x1
   7   !ERROR: Two symbols have the same BIND(C) name 'x1'
   8   integer, bind(c, name=" x1 ") :: x2
   9  contains
  10   !ERROR: Two symbols have the same BIND(C) name 'x3'
  11   subroutine x3() bind(c, name="x3")
  12   end subroutine
  13 end module
  14
  15 subroutine x4() bind(c, name=" x3 ")
  16 end subroutine
  17
  18 ! Ensure no error in this situation
  19 module m2
  20  interface
  21   subroutine x5() bind(c, name=" x5 ")
  22   end subroutine
  23  end interface
  24 end module
  25 subroutine x5() bind(c, name=" x5 ")
  26 end subroutine