fixed a warning in pio_support.F90

jedwards4b · Jun 26, 2019 · 3f3d5cb · 3f3d5cb
1 parent 776e542
commit 3f3d5cb
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