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