From 2263019d609e05c2689542a917f3b6565bd7cbb0 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 13 May 2017 15:33:34 +0000 Subject: [PATCH] io.c (gfc_resolve_dt): Fix returns to bool type. 2017-05-13 Jerry DeLisle * io.c (gfc_resolve_dt): Fix returns to bool type. From-SVN: r248008 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/io.c | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e56a9b9b0d0..da9cf10dd68 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2017-05-13 Jerry DeLisle + + * io.c (gfc_resolve_dt): Fix returns to bool type. + 2017-05-11 Jerry DeLisle PR fortran/78659 diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index b2fa741d03f..5f0e579ad6c 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; } } } -- 2.30.2