78 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Loop Construct4 5program omp6 integer i, j, k7 8 !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.9 !$omp do collapse(3)10 do i = 0, 1011 select case (i)12 case(1)13 !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct14 cycle15 end select16 do j = 0, 1017 do k = 0, 1018 print *, i, j, k19 end do20 end do21 end do22 !$omp end do23 24 !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.25 !$omp do collapse(3)26 do i = 0, 1027 do j = 0, 1028 select case (i)29 case(1)30 !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct31 cycle32 end select33 do k = 0, 1034 print *, i, j, k35 end do36 end do37 end do38 !$omp end do39 40 !$omp do collapse(2)41 foo: do i = 0, 1042 foo1: do j = 0, 1043 select case (i)44 case(1)45 !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct46 cycle foo47 case(5)48 cycle foo149 end select50 do k = 0, 1051 print *, i, j, k52 end do53 end do foo154 end do foo55 !$omp end do56 57 !$omp do ordered(3)58 foo: do i = 0, 1059 foo1: do j = 0, 1060 foo2: do k = 0, 1061 select case (i)62 case(1)63 !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct64 cycle foo65 case(5)66 !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct67 cycle foo168 case(7)69 cycle foo270 end select71 print *, i, j, k72 end do foo273 end do foo174 end do foo75 !$omp end do76 77end program omp78