flang/test/Semantics/OpenMP/assumed-size-array-dsa.f90

!RUN: %python %S/../test_errors.py %s %flang -fopenmp

! Assumed-size arrays are predetermined shared and may only appear in a SHARED clause
subroutine test_assumed_size_array_dsa( arr, N )
  implicit none
  integer :: arr(*)
  integer :: i, N

  !$omp parallel

  !$omp task shared(arr)
  do i = 1, N
    print *, arr(i)
  end do
  !$omp end task

  ! ERROR: A whole assumed-size array is not allowed as a list item on PRIVATE clause
  !$omp task private(arr)
  do i = 1, N
    print *, arr(i)
  end do
  !$omp end task

  ! ERROR: A whole assumed-size array is not allowed as a list item on FIRSTPRIVATE clause
  !$omp task firstprivate(arr)
  do i = 1, N
    print *, arr(i)
  end do
  !$omp end task

  ! ERROR: A whole assumed-size array is not allowed as a list item on LASTPRIVATE clause
  !$omp do lastprivate(arr)
  do i = 1, N
    print *, arr(i)
  end do
  !$omp end do

  ! ERROR: A whole assumed-size array is not allowed as a list item on LINEAR clause
  ! ERROR: List item 'arr' in LINEAR clause must be a scalar variable
  !$omp do linear(arr)
  do i = 1, N
    print *, arr(i)
  end do
  !$omp end do

  !$omp end parallel

end subroutine