Merge pull request ESMCI#1535 from NCAR/ejh_warn_6

Last of the easy fortran warning fixes...
rfiorella · Jun 26, 2019 · ab6c5fe · ab6c5fe
2 parents 56d9152 + 3f3d5cb
commit ab6c5fe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/flib/pio_support.F90 b/src/flib/pio_support.F90
@@ -35,7 +35,7 @@ subroutine replace_c_null(istr, ilen)
     integer(kind=pio_offset_kind), optional, intent(in) :: ilen
     integer :: i, slen
     if(present(ilen)) then
-       slen = ilen
+       slen = int(ilen)
     else
        slen = len(istr)
     endif