| ! PR middle-end/27573 | |
| ! { dg-do compile } | |
| ! { dg-require-profiling "-fprofile-generate" } | |
| ! { dg-options "-O2 -fopenmp -fprofile-generate" } | |
| program pr27573 | |
| integer i,j | |
| j = 8 | |
| !$omp parallel | |
| print *, "foo" | |
| do i = 1, j - 1 | |
| end do | |
| !$omp end parallel | |
| end |