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