diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e56a9b9..da9cf10 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 b2fa741..5f0e579 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; } } } |