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

   1 ! { dg-do compile }
   2 ! { dg-options "-O -fopenmp -fexceptions" }
   3
   4   SUBROUTINE dbcsr_mult_m_e_e ( )
   5     LOGICAL, PARAMETER   :: use_combined_types = .FALSE.
   6     INTEGER, ALLOCATABLE, DIMENSION(:, :) ::  right_index_sr
   7     INTEGER, ALLOCATABLE, DIMENSION(:, :, :) ::  my_sizes
   8     INTEGER, ALLOCATABLE,  DIMENSION(:, :, :, :) :: all_sizes
   9     ALLOCATE (all_sizes(4, LBOUND(my_sizes,2):UBOUND(my_sizes,2), &
  10               LBOUND(my_sizes,3):UBOUND(my_sizes,3), 0:numnodes-1))
  11           IF (use_combined_types) THEN
  12              CALL mp_waitall (right_index_sr)
  13           ENDIF
  14           DO ki = 0, min_nimages-1
  15 !$omp parallel default (none) &
  16 !$omp reduction (+: flop_single, t_all, t_dgemm)
  17 !$omp end parallel
  18           ENDDO
  19        checksum = dbcsr_checksum (product_matrix, error)
  20   END SUBROUTINE dbcsr_mult_m_e_e
  21