diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index dfbff5cb8e0228f52ff74423d17a62e085dd8cdb..f2a1558b7389f35cb7d6920f800742734f70c9e6 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