1! PR fortran/78298
2! { dg-do compile }
3! { dg-additional-options "-O2" }
4
5program pr78298
6  integer :: i, j, n
7  n = 2
8  !$omp parallel
9  !$omp do
10  do i = 1, n
11    !$omp parallel
12    !$omp do
13    do j = 1, n
14      call sub(i)
15    end do
16    !$omp end parallel
17  end do
18  !$omp end parallel
19  !call unused()
20contains
21  subroutine sub(x)
22    integer :: x
23  end
24  subroutine unused()
25    i = 0
26    j = 0
27  end
28end
29