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

re PR fortran/40638 (RTE: "Unit number in I/O statement too large" -- fails with any low value) 

2009-07-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/40638
	* trans-io.c (set_parameter_value): Don't build un-necessary run-time
	checks for units of KIND less than 4.

From-SVN: r149218
This commit is contained in:
Jerry DeLisle 2009-07-04 03:07:12 +00:00
parent 4f954c99d3
commit dfb5d635c7
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2009-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/40638
* trans-io.c (set_parameter_value): Don't build un-necessary run-time
checks for units of KIND less than 4.
2009-06-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/40443

2
gcc/fortran/trans-io.c
View File

@ -471,7 +471,7 @@ set_parameter_value (stmtblock_t *block, tree var, enum iofield type,
gfc_conv_expr_val (&se, e);
/* If we're storing a UNIT number, we need to check it first. */
if (type == IOPARM_common_unit && e->ts.kind != 4)
if (type == IOPARM_common_unit && e->ts.kind > 4)
{
tree cond, max;
int i;