38 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! Generic tests4! 1. subroutine or function calls should not be fixed for DSA or DMA5 6!DEF: /foo (Function) Subprogram REAL(4)7!DEF: /foo/rnum ObjectEntity REAL(4)8function foo(rnum)9 !REF: /foo/rnum10 real rnum11 !REF: /foo/rnum12 rnum = rnum+1.13end function foo14!DEF: /function_call_in_region EXTERNAL (Subroutine) Subprogram15subroutine function_call_in_region16 implicit none17 !DEF: /function_call_in_region/foo (Function) ProcEntity REAL(4)18 real foo19 !DEF: /function_call_in_region/a ObjectEntity REAL(4)20 real :: a = 0.21 !DEF: /function_call_in_region/b ObjectEntity REAL(4)22 real :: b = 5.23 !$omp parallel default(none) private(a) shared(b)24 !DEF: /function_call_in_region/OtherConstruct1/a (OmpPrivate, OmpExplicit) HostAssoc REAL(4)25 !REF: /function_call_in_region/foo26 !DEF: /function_call_in_region/OtherConstruct1/b (OmpShared, OmpExplicit) HostAssoc REAL(4)27 a = foo(b)28 !$omp end parallel29 !REF: /function_call_in_region/a30 !REF: /function_call_in_region/b31 print *, a, b32end subroutine function_call_in_region33!DEF: /MM MainProgram34program MM35 !REF: /function_call_in_region36 call function_call_in_region37end program MM38