! { dg-do compile }
! { dg-options "-fexternal-blas -fblas-matmul-limit=0" }
module blas
  interface matmul_blas
    module procedure matmul_blas_r4
    module procedure matmul_blas_r8
    module procedure matmul_blas_c4
    module procedure matmul_blas_c8
  end interface
contains
  subroutine matmul_blas_r4(dest,a,b)
    real(4),intent(in) :: a(:,:), b(:,:)
    real(4),intent(out) :: dest(:,:)
    dest = matmul(a,b)
  end subroutine
  subroutine matmul_blas_r8(dest,a,b)
    real(8),intent(in) :: a(:,:), b(:,:)
    real(8),intent(out) :: dest(:,:)
    dest = matmul(a,b)
  end subroutine
  subroutine matmul_blas_c4(dest,a,b)
    complex(4),intent(in) :: a(:,:), b(:,:)
    complex(4),intent(out) :: dest(:,:)
    dest = matmul(a,b)
  end subroutine
  subroutine matmul_blas_c8(dest,a,b)
    complex(8),intent(in) :: a(:,:), b(:,:)
    complex(8),intent(out) :: dest(:,:)
    dest = matmul(a,b)
  end subroutine
end module blas