40 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Loop Construct4! The DO loop iteration variable must be of type integer.5 6program omp_do7 real i, j, k8 !$omp do9 !ERROR: The DO loop iteration variable must be of the type integer.10 do i = 1, 1011 !ERROR: The DO loop iteration variable must be of the type integer.12 do j = 1, 1013 print *, "it", i, j14 end do15 end do16 !$omp end do17 18 !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.19 !$omp do collapse(3)20 !ERROR: The DO loop iteration variable must be of the type integer.21 do i = 1, 1022 !ERROR: The DO loop iteration variable must be of the type integer.23 do j = 1, 1024 print *, "it", i, j25 end do26 end do27 !$omp end do28 29 !$omp do collapse(2)30 !ERROR: The DO loop iteration variable must be of the type integer.31 do i = 1, 1032 !ERROR: The DO loop iteration variable must be of the type integer.33 do j = 1, 1034 print *, "it", i, j35 end do36 end do37 !$omp end do38 39end program omp_do40