gcc/testsuite/gfortran.fortran-torture/compile/pr66352.f90

   1 ! { dg-additional-options "-fprofile-generate" }
   2   SUBROUTINE matmul_test ( ntim,len)
   3     INTEGER, PARAMETER :: dp=8
   4     REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: ma, mb, mc
   5     INTEGER :: siz,len, ntim
   6     DO i = 5, siz, 2
   7        len = 2**i + 1
   8        ALLOCATE ( ma ( len, len ), STAT = ierr )
   9        IF ( ierr /= 0 ) EXIT
  10        ALLOCATE ( mb ( len, len ), STAT = ierr )
  11        IF ( ierr /= 0 ) EXIT
  12        ALLOCATE ( mc ( len, len ), STAT = ierr )
  13        IF ( ierr /= 0 ) EXIT
  14        DO j = 1, ntim
  15           mc = MATMUL ( ma, mb )
  16        END DO
  17     END DO
  18   END SUBROUTINE matmul_test