31 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Test that intent-stmt and subprogram prefix and suffix are resolved.3 4!DEF: /m Module5module m6 !DEF: /m/f PRIVATE, PURE, RECURSIVE (Function) Subprogram REAL(4)7 private :: f8contains9 !DEF: /m/s BIND(C), PUBLIC, PURE (Subroutine) Subprogram10 !DEF: /m/s/x INTENT(IN) (Implicit) ObjectEntity REAL(4)11 !DEF: /m/s/y INTENT(INOUT) (Implicit) ObjectEntity REAL(4)12 pure subroutine s (x, y) bind(c)13 !REF: /m/s/x14 intent(in) :: x15 !REF: /m/s/y16 intent(inout) :: y17 contains18 !DEF: /m/s/ss PURE (Subroutine) Subprogram19 pure subroutine ss20 end subroutine21 end subroutine22 !REF: /m/f23 !DEF: /m/f/x ALLOCATABLE ObjectEntity REAL(4)24 recursive pure function f() result(x)25 !REF: /m/f/x26 real, allocatable :: x27 !REF: /m/f/x28 x = 1.029 end function30end module31