gcc/testsuite/gfortran.dg/gomp/pr69128.f90

   1 ! PR fortran/69128
   2 ! { dg-do compile }
   3
   4 program test
   5   implicit none
   6   interface
   7     subroutine use(b, c)
   8       real, allocatable :: b(:), c(:)
   9     end subroutine
  10   end interface
  11   real, allocatable :: a(:,:), b(:), c(:)
  12   integer :: dim1, dim2, i,j
  13   dim1=10000
  14   dim2=500
  15   allocate(a(dim1,dim2),b(dim1),c(dim1))
  16   call random_number(a)
  17
  18 !$omp parallel workshare
  19   b(:) = maxval(a(:,:), dim=2)
  20   c(:) = sum(a(:,:), dim=2)
  21 !$omp end parallel workshare
  22   call use(b, c)
  23 end program