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 e56a9b9b0d044dd706d28c52fc98bec4f9d5ecf1..da9cf10dd6864357863384be1458b7e1dbba9d0d 100644 (file)
--- 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 b2fa741d03f0dc39f5b4e7dfc17cfb23acb531e9..5f0e579ad6ca2833440e782c49c1cd92f20adca7 100644 (file)
--- 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;
                }
            }
        }