14 lines
389 B
Fortran
14 lines
389 B
Fortran
! RUN: not %flang_fc1 -fdebug-unparse-with-symbols -fopenmp %s 2>&1 | FileCheck %s
|
|
! OpenMP Version 4.5
|
|
! 2.7.1 Loop Construct
|
|
program omp_doCollapse
|
|
integer:: i
|
|
!$omp parallel do collapse(2)
|
|
do i = 1, 3
|
|
!CHECK: Loop control is not present in the DO LOOP
|
|
!CHECK: associated with the enclosing LOOP construct
|
|
do
|
|
end do
|
|
end do
|
|
end program omp_doCollapse
|
|
|