flang/test/Semantics/omp-parallel02.f90

   1 ! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s
   2 ! OpenMP Version 4.5
   3 ! 2.5 parallel construct.
   4 ! A program that branches into or out of a parallel region
   5 ! is non-conforming.
   6
   7 program omp_parallel
   8   integer i, j, k
   9
  10   !CHECK: invalid branch into an OpenMP structured block
  11   goto 10
  12
  13   !$omp parallel
  14   do i = 1, 10
  15     do j = 1, 10
  16       print *, "Hello"
  17       !CHECK: In the enclosing PARALLEL directive branched into
  18       !CHECK: STOP statement is not allowed in a PARALLEL construct
  19       10 stop
  20     end do
  21   end do
  22   !$omp end parallel
  23
  24 end program omp_parallel