35 lines · plain
1! This test checks the lowering of OpenMP Indirect Clause when used with the Declare Target directive2 3! RUN: not %flang_fc1 -emit-fir -fopenmp -fopenmp-version=52 %s 2>&1 | FileCheck %s4 5module functions6 implicit none7 8 interface9 function func() result(i)10 character(1) :: i11 end function12 end interface13 14contains15 function func1() result(i)16 !CHECK: not yet implemented: Unhandled clause INDIRECT in DECLARE TARGET construct17 !$omp declare target enter(func1) indirect(.true.)18 character(1) :: i19 i = 'a'20 return21 end function22end module23 24program main25 use functions26 implicit none27 procedure (func), pointer :: ptr1=>func128 character(1) :: val129 30 !$omp target map(from: val1)31 val1 = ptr1()32 !$omp end target33 34end program35