1! PR ipa/88933
2! { dg-do compile }
3! { dg-options "-O1 -fexceptions -fipa-cp -fnon-call-exceptions -fopenmp -fno-inline-functions-called-once" }
4
5!$omp parallel
6!$omp single
7  call a
8!$omp end single
9!$omp end parallel
10contains
11  subroutine b (c, d, e, f, g, h, i, j, k, m)
12    character (*) c
13    character  d
14    integer, dimension (m) :: e
15    integer, dimension (m) :: f
16    character  g
17    character  h
18    real, dimension (:, :, :) :: i
19    double precision, dimension (:, :, :) :: j
20    integer, dimension (:, :, :) :: k
21
22    integer, dimension (m) :: l
23!$omp task firstprivate (k) firstprivate (l)
24    !$omp end task
25  c = ''
26  end
27  subroutine a
28    character  c
29    character  d
30    integer, dimension (7) :: e
31    integer, dimension (7) :: f
32    character g
33    character h
34    real, dimension (5, 6, 7) :: i
35    double precision, dimension (6, 6, 7) :: j
36    integer, dimension (5, 7, 6) :: k
37    call b (c, d, e, f, g, h, i, j, k, 7)
38  end
39end
40