From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 13 May 2017 15:33:34 +0000 (+0000)
Subject: io.c (gfc_resolve_dt): Fix returns to bool type.
X-Git-Tag: basepoints/gcc-9~7324
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2263019d609e05c2689542a917f3b6565bd7cbb0;p=thirdparty%2Fgcc.git

io.c (gfc_resolve_dt): Fix returns to bool type.

2017-05-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* io.c (gfc_resolve_dt): Fix returns to bool type.

From-SVN: r248008
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e56a9b9b0d04..da9cf10dd686 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2017-05-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* io.c (gfc_resolve_dt): Fix returns to bool type.
+
 2017-05-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/78659
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index b2fa741d03f0..5f0e579ad6ca 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -3299,7 +3299,7 @@ gfc_resolve_dt (gfc_dt *dt, locus *loc)
 	      gfc_error ("NAMELIST object %qs in namelist %qs at %L is "
 			 "polymorphic and requires a defined input/output "
 			 "procedure", n->sym->name, dt->namelist->name, loc);
-	      return 1;
+	      return false;
 	    }
     
 	  if ((n->sym->ts.type == BT_DERIVED)
@@ -3310,7 +3310,7 @@ gfc_resolve_dt (gfc_dt *dt, locus *loc)
 				   "namelist %qs at %L with ALLOCATABLE "
 				   "or POINTER components", n->sym->name,
 				   dt->namelist->name, loc))
-		return 1;
+		return false;
     
 	      if (!t)
 		{
@@ -3318,7 +3318,7 @@ gfc_resolve_dt (gfc_dt *dt, locus *loc)
 			     "ALLOCATABLE or POINTER components and thus requires "
 			     "a defined input/output procedure", n->sym->name,
 			     dt->namelist->name, loc);
-		  return 1;
+		  return false;
 		}
 	    }
 	}