gcc/testsuite/gfortran.dg/gomp/pr35786-2.f90

   1 ! PR fortran/35786
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp" }
   4
   5 function fn7 ()
   6   integer :: fn7
   7   !$omp parallel private (fn7)
   8     fn7 = 6
   9   !$omp end parallel
  10   fn7 = 7
  11 end function fn7
  12 function fn8 ()
  13   integer :: fn8
  14   call fn9
  15 contains
  16   subroutine fn9
  17     !$omp parallel private (fn8)
  18       fn8 = 6
  19     !$omp end parallel
  20     fn8 = 7
  21   end subroutine fn9
  22 end function fn8
  23 function fn10 ()
  24   integer :: fn10, fn11
  25   entry fn11 ()
  26   !$omp parallel private (fn10)
  27     fn10 = 6
  28   !$omp end parallel
  29   !$omp parallel private (fn11)
  30     fn11 = 6
  31   !$omp end parallel
  32   fn10 = 7
  33 end function fn10
  34 function fn12 ()
  35   integer :: fn12, fn13
  36   entry fn13 ()
  37   call fn14
  38 contains
  39   subroutine fn14
  40     !$omp parallel private (fn12)
  41       fn12 = 6
  42     !$omp end parallel
  43     !$omp parallel private (fn13)
  44       fn13 = 6
  45     !$omp end parallel
  46     fn12 = 7
  47   end subroutine fn14
  48 end function fn12