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