Subversion Repositories openrisc

! { dg-do compile }
! { dg-options "-O -fopenmp -fexceptions" }

  SUBROUTINE dbcsr_mult_m_e_e ( )
    LOGICAL, PARAMETER   :: use_combined_types = .FALSE.
    INTEGER, ALLOCATABLE, DIMENSION(:, :) ::  right_index_sr
    INTEGER, ALLOCATABLE, DIMENSION(:, :, :) ::  my_sizes
    INTEGER, ALLOCATABLE,  DIMENSION(:, :, :, :) :: all_sizes
    ALLOCATE (all_sizes(4, LBOUND(my_sizes,2):UBOUND(my_sizes,2), &
              LBOUND(my_sizes,3):UBOUND(my_sizes,3), 0:numnodes-1))
          IF (use_combined_types) THEN
             CALL mp_waitall (right_index_sr)
          ENDIF
          DO ki = 0, min_nimages-1
!$omp parallel default (none) &
!$omp reduction (+: flop_single, t_all, t_dgemm)
!$omp end parallel
          ENDDO
       checksum = dbcsr_checksum (product_matrix, error)
  END SUBROUTINE dbcsr_mult_m_e_e