From 32a1f483839ddf61d6f39947789ab9cfe2c0fe52 Mon Sep 17 00:00:00 2001
From: Ed Hartnett <edwardjameshartnett@gmail.com>
Date: Tue, 25 Jun 2019 09:11:56 -0600
Subject: [PATCH] fixing warnings in pionfatt_mod.F90.in

---
 src/flib/Makefile.am         | 4 ++--
 src/flib/pionfatt_mod.F90.in | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/flib/Makefile.am b/src/flib/Makefile.am
index 0edebf14daf..c48982f615b 100644
--- a/src/flib/Makefile.am
+++ b/src/flib/Makefile.am
@@ -32,7 +32,7 @@ libpio_types_la_SOURCES = pio_types.F90
 libpio_support_la_SOURCES = pio_support.F90
 libpio_nf_la_SOURCES = pio_nf.F90
 libpiodarray_la_SOURCES = piodarray.F90
-libpionfatt_la_SOURCES = p1ionfatt_mod.f901
+libpionfatt_la_SOURCES = pionfatt_mod.F90
 libpionfget_la_SOURCES = pionfget_mod.F90
 libpionfput_la_SOURCES = pionfput_mod.F90
 libpiolib_mod_la_SOURCES = piolib_mod.F90
@@ -55,7 +55,7 @@ pio_types.mod: pio_types.$(OBJEXT)
 pio_support.mod: pio_support.$(OBJEXT)
 pio_nf.mod: pio_nf.$(OBJEXT)
 piodarray.mod: piodarray.F90 piodarray.$(OBJEXT)
-pionfatt_mod.mod: pionfatt_mod.f90 pionfatt_mod.$(OBJEXT)
+pionfatt_mod.mod: pionfatt_mod.F90 pionfatt_mod.$(OBJEXT)
 pionfget_mod.mod: pionfget_mod.F90 pionfget_mod.$(OBJEXT)
 pionfput_mod.mod: pionfput_mod.F90 pionfput_mod.$(OBJEXT)
 piolib_mod.mod: piolib_mod.$(OBJEXT)
diff --git a/src/flib/pionfatt_mod.F90.in b/src/flib/pionfatt_mod.F90.in
index 550c0cdb74f..01952b2bd85 100644
--- a/src/flib/pionfatt_mod.F90.in
+++ b/src/flib/pionfatt_mod.F90.in
@@ -199,7 +199,7 @@ contains
     clen = len_trim(values)
     allocate(cvar(clen+1))
     cvar = C_NULL_CHAR
-    do i=1,clen
+    do i=1,int(clen)
        cvar(i) = values(i:i)
     end do
     ierr = PIOc_put_att_text (ncid,varid-1,trim(name)//C_NULL_CHAR, clen, cvar(1))