Merge pull request #149 from swig-fortran/fix-xl-compiler

Fix XL compiler errors, ignore others

Author: sethrj

Examples/test-suite/fortran/arrays_global_twodim_runme.F90

@@ -1,8 +1,8 @@
-! File : arrays_global_twodim.F90
+! File : arrays_global_twodim_runme.F90
 
 #include "fassert.h"
 
-program arrays_global_twodim
+program arrays_global_twodim_runme
   implicit none
 
   call test_int_array

Lib/fortran/fortranstrings.swg

@@ -40,7 +40,7 @@ subroutine %fortrantm(fout, char*)(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

Lib/fortran/fundamental.swg

@@ -29,8 +29,8 @@ using std::ptrdiff_t;
 %fragment("SWIG_fin"{bool}, "fsubprograms", noblock=1) {
 subroutine %fortrantm(fin, bool)(finp, iminp)
   use, intrinsic :: ISO_C_BINDING
-  logical, intent(IN) :: finp
-  integer(kind=C_INT), intent(OUT) :: iminp
+  logical, intent(in) :: finp
+  integer(kind=C_INT), intent(out) :: iminp
   if (finp .eqv. .true.) then
     iminp = 1
   else
@@ -42,8 +42,8 @@ end subroutine
 %fragment("SWIG_fout"{bool}, "fsubprograms", noblock=1) {
 subroutine %fortrantm(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.