OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r248008
This commit is contained in:
Jerry DeLisle 2017-05-13 15:33:34 +00:00
parent 65fdd5e9ac
commit 2263019d60
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -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

6
gcc/fortran/io.c
View File

@ -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;
}
}
}