1*092a819eSKiran Chandramohan! This test checks lowering of OpenMP parallel master taskloop Directive. 2*092a819eSKiran Chandramohan 3*092a819eSKiran Chandramohan! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s 4*092a819eSKiran Chandramohan! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s 5*092a819eSKiran Chandramohan 6*092a819eSKiran Chandramohansubroutine test_parallel_master_taskloop 7*092a819eSKiran Chandramohan integer :: i, j = 1 8*092a819eSKiran Chandramohan !CHECK: not yet implemented: Taskloop construct 9*092a819eSKiran Chandramohan !$omp parallel master taskloop 10*092a819eSKiran Chandramohan do i=1,10 11*092a819eSKiran Chandramohan j = j + 1 12*092a819eSKiran Chandramohan end do 13*092a819eSKiran Chandramohan !$omp end parallel master taskloop 14*092a819eSKiran Chandramohanend subroutine 15