Michael Kruse 58c3f20bbf [flang][windows] Run regression tests under Windows. NFCI.
Allow the lit test suite to run under Windows. This encompasses the following changes:

 * Define `lit_tools_dir` for flang's test configuration
 * Replace `(<command> || true)` idiom with `not <command>`
 * Add `REQUIRES: shell` on tests that invoke a shell script

Reviewed By: awarzynski

Differential Revision: https://reviews.llvm.org/D89368
2021-06-10 05:13:44 -05:00

25 lines
522 B
Fortran

! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s
! REQUIRES: shell
! OpenMP Version 4.5
! 2.7.1 Loop Construct
! No statement in the associated loops other than the DO statements
! can cause a branch out of the loops
program omp_do
integer i, j, k
!$omp do
do i = 1, 10
do j = 1, 10
print *, "Hello"
!CHECK: invalid branch leaving an OpenMP structured block
goto 10
end do
end do
!$omp end do
!CHECK: Outside the enclosing DO directive
10 stop
end program omp_do