summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/gomp/pr43337.f90
blob: f07ccb441bedb118830af040b8f5d1b589a2ce11 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
! PR middle-end/43337
! { dg-do compile }
! { dg-options "-fopenmp -O2 -g" }

subroutine pr43337
  integer :: a, b(10)
  call foo (b)
  call bar (b)
contains
  subroutine foo (b)
    integer :: b(10)
!$omp parallel if (.false.)
!$omp task if (.false.) shared(b)
    do a = 1, 10
      b(a) = 1
    end do
!$omp end task
!$omp end parallel
  end subroutine foo
  subroutine bar (b)
    integer :: b(10)
!$omp parallel if (.false.)
!$omp parallel if (.false.)
    do a = 1, 10
      b(a) = 1
    end do
!$omp end parallel
!$omp end parallel
  end subroutine bar
end subroutine pr43337