44 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522! Check OpenMP MAP clause validity. Section 5.8.3 OpenMP 5.2.3 4subroutine sb(arr)5 implicit none6 real(8) :: arr(*)7 real :: a8 integer:: b, c, i9 common /var/ b, c 10 11 !ERROR: Assumed-size whole arrays may not appear on the MAP clause12 !$omp target map(arr)13 do i = 1, 10014 a = 3.1415 enddo16 !$omp end target17 18 !ERROR: Assumed-size array 'arr' must have explicit final subscript upper bound value19 !$omp target map(arr(:))20 do i = 1, 10021 a = 3.1422 enddo23 !$omp end target24 25 !$omp target map(arr(3:5))26 do i = 1, 10027 a = 3.1428 enddo29 !$omp end target30 31 !$omp target map(tofrom: /var/)32 b = 133 c = 234 !$omp end target35end subroutine36 37subroutine sb138 integer :: xx39 integer :: a40 !ERROR: Name 'xx' should be a mapper name41 !$omp target map(mapper(xx), from:a)42 !$omp end target43end subroutine sb144