flang/test/Semantics/symbol24.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2 ! Ensure that global ENTRY symbols with global bindings
   3 ! are hidden in distinct global scopes, and nothing
   4 ! clashes so long as binding names are distinct.
   5
   6 !DEF: /s1 (Subroutine) Subprogram
   7 subroutine s1
   8  !DEF: /foo (Subroutine) Subprogram
   9  entry foo()
  10 end subroutine
  11 !DEF: /s2 (Subroutine) Subprogram
  12 subroutine s2
  13  !DEF: /foo BIND(C) (Subroutine) Subprogram
  14  entry foo() bind(c, name="foo1")
  15 end subroutine
  16 !DEF: /s3 (Subroutine) Subprogram
  17 subroutine s3
  18  !DEF: /foo BIND(C) (Subroutine) Subprogram
  19  entry foo() bind(c, name="foo2")
  20 end subroutine