60 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -Werror -fopenmp-version=522 3! Check for deprecation of master directive and its combined/composite variants4 5subroutine test_master()6 integer :: c = 17!WARNING: OpenMP directive MASTER has been deprecated, please use MASKED instead. [-Wopen-mp-usage]8 !$omp master 9 c = c + 110 !$omp end master11end subroutine12 13subroutine test_parallel_master14 integer :: c = 215!WARNING: OpenMP directive PARALLEL MASTER has been deprecated, please use PARALLEL MASKED instead. [-Wopen-mp-usage]16 !$omp parallel master17 c = c + 218 !$omp end parallel master19end subroutine20 21subroutine test_master_taskloop_simd()22 integer :: i, j = 123!WARNING: OpenMP directive MASTER TASKLOOP SIMD has been deprecated, please use MASKED TASKLOOP SIMD instead. [-Wopen-mp-usage]24 !$omp master taskloop simd 25 do i=1,1026 j = j + 127 end do28 !$omp end master taskloop simd29end subroutine30 31subroutine test_master_taskloop32 integer :: i, j = 133!WARNING: OpenMP directive MASTER TASKLOOP has been deprecated, please use MASKED TASKLOOP instead. [-Wopen-mp-usage]34 !$omp master taskloop35 do i=1,1036 j = j + 137 end do38 !$omp end master taskloop 39end subroutine40 41subroutine test_parallel_master_taskloop_simd42 integer :: i, j = 143!WARNING: OpenMP directive PARALLEL MASTER TASKLOOP SIMD has been deprecated, please use PARALLEL_MASKED TASKLOOP SIMD instead. [-Wopen-mp-usage]44 !$omp parallel master taskloop simd 45 do i=1,1046 j = j + 147 end do48 !$omp end parallel master taskloop simd49end subroutine50 51subroutine test_parallel_master_taskloop52 integer :: i, j = 153!WARNING: OpenMP directive PARALLEL MASTER TASKLOOP has been deprecated, please use PARALLEL MASKED TASKLOOP instead. [-Wopen-mp-usage]54 !$omp parallel master taskloop55 do i=1,1056 j = j + 157 end do58 !$omp end parallel master taskloop 59end subroutine60