From 3f3d5cb5572b9df5ec845f2bf970892bda49c0fb Mon Sep 17 00:00:00 2001
From: Ed Hartnett <edwardjameshartnett@gmail.com>
Date: Wed, 26 Jun 2019 04:00:30 -0600
Subject: [PATCH] fixed a warning in pio_support.F90

---
 src/flib/pio_support.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/flib/pio_support.F90 b/src/flib/pio_support.F90
index bb038148895..20831d85f1b 100644
--- 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