Warn about truncated character expressions

Fix by matching type from openspec.inc/FILESPEC.INC
MODFLOW-USGS · Mar 7, 2019 · 75f78fc · 75f78fc
1 parent 08479fe
commit 75f78fc
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/autotest/config.py b/autotest/config.py
@@ -21,7 +21,7 @@
 
 fflags = None
 if fc == 'gfortran':
-    fflags = 'Werror Wtabs Wline-truncation'
+    fflags = 'Werror Wtabs Wline-truncation Wcharacter-truncation'
 
 # Development version information
 testpaths = [os.path.join('..', 'test-cmp'), os.path.join('..', 'test-reg')]

diff --git a/mt3dms/src/mt_utl5.for b/mt3dms/src/mt_utl5.for
@@ -16,7 +16,7 @@ C
       IMPLICIT  NONE
       INTEGER   IN,ISTAT,I,IDFL
       LOGICAL   LOP
-      CHARACTER FINDEX*30,FLNAME*50,FLFORM*15,FLSTAT*15,FILACT*20,
+      CHARACTER FINDEX*30,FLNAME*50,FLFORM*20,FLSTAT*15,FILACT*20,
      &          ACCARG*20
 C
       INCLUDE  'FILESPEC.INC'

diff --git a/src/utl1.f b/src/utl1.f
@@ -431,7 +431,7 @@ SUBROUTINE OPENFL(IN,ISTAT,FLNAME,IDFL,FINDEX)
       IMPLICIT  NONE
       INTEGER   IN,ISTAT,I,IDFL
       LOGICAL   LOP
-      CHARACTER FINDEX*30,FLNAME*50,FLFORM*15,FLSTAT*15,FILACT*20,
+      CHARACTER FINDEX*30,FLNAME*50,FLFORM*20,FLSTAT*15,FILACT*20,
      &          ACCARG*20
 C
       INCLUDE  'openspec.inc'