From 135c27c2ef671accc2759c0976b4ad0913960028 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 19 Mar 2021 19:02:43 +0100
Subject: [PATCH] Fixed fortran interface

---
 src/qmckl_error.org | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/qmckl_error.org b/src/qmckl_error.org
index 87451e3..35d9ee6 100644
--- a/src/qmckl_error.org
+++ b/src/qmckl_error.org
@@ -23,6 +23,7 @@ MunitResult test_<<filename()>>() {
 #include <errno.h>
 #include <string.h>
    #+end_src
+
 * 
 :PROPERTIES:
 :UNNUMBERED: t
@@ -183,7 +184,7 @@ void qmckl_string_of_error(qmckl_exit_code error, char string[<<MAX_STRING_LENGT
      type (c_ptr) function qmckl_string_of_error (error, string) bind(C)
        use, intrinsic :: iso_c_binding
        integer (c_int32_t), intent(in), value        :: error
-       character*(<<MAX_STRING_LENTH>>), intent(out) :: string
+       character*(<<MAX_STRING_LENTH()>>), intent(out) :: string
      end function qmckl_string_of_error
   end interface
   #+end_src