20 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=602 3subroutine f00(x)4 integer :: x(10)5 !ERROR: Must be a scalar value, but is a rank-1 array6 !$omp task transparent(x)7 !$omp end task8end9 10subroutine f0111 implicit none12 integer :: i13 !ERROR: Must have INTEGER type, but is CHARACTER(KIND=1,LEN=5_8)14 !$omp taskloop transparent("hello")15 do i = 1, 1016 end do17 !$omp end taskloop18end19 20