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
22