fix for compilation of octave mex files

83b1c39f · Houtan Bastani · 71f184e3 · 83b1c39f
Commit 83b1c39f authored Nov 06, 2014 by Houtan Bastani
--- a/gfortran.f90
+++ b/gfortran.f90
@@ -19,7 +19,11 @@ MODULE GFORTRAN
  IMPLICIT NONE
 CONTAINS
  FUNCTION LOGICAL2INTEGER(V)
+#if defined(OCTAVE_MEX_FILE)
+    LOGICAL*4, DIMENSION(:), INTENT(IN) :: V
+#else
    LOGICAL, DIMENSION(:), INTENT(IN) :: V
+#endif
    INTEGER :: I
    INTEGER, DIMENSION(SIZE(V)) :: LOGICAL2INTEGER
    DO I=1,SIZE(V)