diff --git a/src/matexp.f b/src/matexp.f
index 00a94eaa4..c1a0eab28 100644
--- a/src/matexp.f
+++ b/src/matexp.f
@@ -21,7 +21,6 @@ SUBROUTINE DGEXX ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB,
 * Error: Variable 'ldb' cannot appear in the expression at (1)
 *
       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), C( LDC, * )
-*      complex(kind=8)   A( LDA, * ), B( LDB, * ), C( LDC, * )
 
 *
 *     ..