gcc/testsuite/gfortran.dg/gomp/pr27573.f90

   1 ! PR middle-end/27573
   2 ! { dg-do compile }
   3 ! { dg-options "-O2 -fopenmp -fprofile-generate" }
   4
   5 program pr27573
   6   integer i,j
   7   j = 8
   8   !$omp parallel
   9     print *, "foo"
  10     do i = 1, j - 1
  11     end do
  12   !$omp end parallel
  13 end