34 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2 3program openacc_combined_loop4 implicit none5 integer :: i6 7 i = 18 9 !ERROR: A DO loop must follow the PARALLEL LOOP directive10 !$acc parallel loop11 i = 112 13 !ERROR: A DO loop must follow the KERNELS LOOP directive14 !$acc kernels loop15 i = 116 17 !ERROR: A DO loop must follow the SERIAL LOOP directive18 !$acc serial loop19 i = 120 21 !$acc parallel loop22 do 10 i=0, n23 10 continue24 25 !$acc kernels loop26 do 20 i=0, n27 20 continue28 29 !$acc serial loop30 do 30 i=0, n31 30 continue32 33end34