Update with SWIG XL compiler fix (#17)

swig-fortran · Dec 17, 2019 · d8e6a25 · d8e6a25
1 parent 17cba35
commit d8e6a25
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/src/flc.f90 b/src/flc.f90
@@ -78,7 +78,7 @@ subroutine SWIGTM_fout_char_Sm_(imout, fout)
   character(kind=C_CHAR), dimension(:), pointer :: chars
   integer(kind=C_SIZE_T) :: i
   call c_f_pointer(imout%data, chars, [imout%size])
-  allocate(character(kind=C_CHAR, len=imout%size) :: fout)
+  allocate(character(len=imout%size) :: fout)
   do i=1, imout%size
     fout(i:i) = char(ichar(chars(i)))
   end do

diff --git a/src/flc_string.f90 b/src/flc_string.f90
@@ -438,8 +438,8 @@ function swigf_string_size(self) &
 
 subroutine SWIGTM_fout_bool(imout, fout)
   use, intrinsic :: ISO_C_BINDING
-  integer(kind=C_INT), intent(IN) :: imout
-  logical, intent(OUT) :: fout
+  integer(kind=C_INT), intent(in) :: imout
+  logical, intent(out) :: fout
   ! TODO: fout = (imout /= 0) ???
   if (imout /= 0) then
     fout = .true.
@@ -686,7 +686,7 @@ subroutine SWIGTM_fout_char_Sm_(imout, fout)
   character(kind=C_CHAR), dimension(:), pointer :: chars
   integer(kind=C_SIZE_T) :: i
   call c_f_pointer(imout%data, chars, [imout%size])
-  allocate(character(kind=C_CHAR, len=imout%size) :: fout)
+  allocate(character(len=imout%size) :: fout)
   do i=1, imout%size
     fout(i:i) = char(ichar(chars(i)))
   end do

diff --git a/src/flc_vector.f90 b/src/flc_vector.f90
@@ -1234,8 +1234,8 @@ function swigf_VectorInt4_capacity(self) &
 
 subroutine SWIGTM_fout_bool(imout, fout)
   use, intrinsic :: ISO_C_BINDING
-  integer(kind=C_INT), intent(IN) :: imout
-  logical, intent(OUT) :: fout
+  integer(kind=C_INT), intent(in) :: imout
+  logical, intent(out) :: fout
   ! TODO: fout = (imout /= 0) ???
   if (imout /= 0) then
     fout = .true.
@@ -2463,7 +2463,7 @@ subroutine SWIGTM_fout_char_Sm_(imout, fout)
   character(kind=C_CHAR), dimension(:), pointer :: chars
   integer(kind=C_SIZE_T) :: i
   call c_f_pointer(imout%data, chars, [imout%size])
-  allocate(character(kind=C_CHAR, len=imout%size) :: fout)
+  allocate(character(len=imout%size) :: fout)
   do i=1, imout%size
     fout(i:i) = char(ichar(chars(i)))
   end do