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