blob: 7d3c74acd96b5f8e6791e40759d9a7f82df92232 [file] [log] [blame]
! { dg-additional-options "-fprofile-generate" }
SUBROUTINE matmul_test ( ntim,len)
INTEGER, PARAMETER :: dp=8
REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: ma, mb, mc
INTEGER :: siz,len, ntim
DO i = 5, siz, 2
len = 2**i + 1
ALLOCATE ( ma ( len, len ), STAT = ierr )
IF ( ierr /= 0 ) EXIT
ALLOCATE ( mb ( len, len ), STAT = ierr )
IF ( ierr /= 0 ) EXIT
ALLOCATE ( mc ( len, len ), STAT = ierr )
IF ( ierr /= 0 ) EXIT
DO j = 1, ntim
mc = MATMUL ( ma, mb )
END DO
END DO
END SUBROUTINE matmul_test