1! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp 2! REQUIRES: shell 3 4! Generic tests 5! 1. subroutine or function calls should not be fixed for DSA or DMA 6 7!DEF: /foo (Function) Subprogram REAL(4) 8!DEF: /foo/rnum ObjectEntity REAL(4) 9function foo(rnum) 10 !REF: /foo/rnum 11 real rnum 12 !REF: /foo/rnum 13 rnum = rnum+1. 14end function foo 15!DEF: /function_call_in_region EXTERNAL (Subroutine) Subprogram 16subroutine function_call_in_region 17 implicit none 18 !DEF: /function_call_in_region/foo (Function) ProcEntity REAL(4) 19 real foo 20 !DEF: /function_call_in_region/a ObjectEntity REAL(4) 21 real :: a = 0. 22 !DEF: /function_call_in_region/b ObjectEntity REAL(4) 23 real :: b = 5. 24 !$omp parallel default(none) private(a) shared(b) 25 !DEF: /function_call_in_region/Block1/a (OmpPrivate) HostAssoc REAL(4) 26 !REF: /function_call_in_region/foo 27 !REF: /function_call_in_region/b 28 a = foo(b) 29 !$omp end parallel 30 !REF: /function_call_in_region/a 31 !REF: /function_call_in_region/b 32 print *, a, b 33end subroutine function_call_in_region 34!DEF: /mm MainProgram 35program mm 36 !REF: /function_call_in_region 37 call function_call_in_region 38end program mm 39