diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-05-13 15:33:34 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-05-13 15:33:34 +0000 |
| commit | 2263019d609e05c2689542a917f3b6565bd7cbb0 (patch) | |
| tree | 7037dbed30ea3175fac53624d5e8a2c034471256 /gcc/fortran/io.c | |
| parent | 65fdd5e9aca0af40e4cd2d0683149171fb5c7d24 (diff) | |
| download | gcc-2263019d609e05c2689542a917f3b6565bd7cbb0.zip gcc-2263019d609e05c2689542a917f3b6565bd7cbb0.tar.gz gcc-2263019d609e05c2689542a917f3b6565bd7cbb0.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 6 |
1 files changed, 3 insertions, 3 deletions
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; } } } |