697d65ded6
This commit adds parsing of type modifiers for the MAP clause: CLOSE, OMPX_HOLD, and PRESENT. The support for ALWAYS has already existed. The new modifiers are not yet handled in lowering: when present, a TODO message is emitted and compilation stops.
12 lines
324 B
Fortran
12 lines
324 B
Fortran
! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
|
|
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
|
|
|
|
!CHECK: Map type modifiers (other than 'ALWAYS') are not implemented yet
|
|
subroutine f02()
|
|
integer :: x
|
|
!$omp target map(present: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|