From 4e16ffcda2f4bce6bb40ab86005468c75802f21f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org>
Date: Wed, 21 Oct 2020 18:17:41 +0200
Subject: [PATCH] Fortran MEX interface: minor fix for interface to dgemv

---
 mex/sources/blas_lapack.F08 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index dfbff5cb8..f2a1558b7 100644
--- a/mex/sources/blas_lapack.F08
+++ b/mex/sources/blas_lapack.F08
@@ -29,7 +29,7 @@ module blas
   interface
      subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
        import :: blint, real64
-       character :: trans
+       character, intent(in) :: trans
        integer(blint), intent(in) :: m, n, lda, incx, incy
        real(real64), dimension(*), intent(in) :: a, x
        real(real64), intent(in) :: alpha, beta