------- Comment #9 from jvdelisle at gcc dot gnu dot org 2009-07-03 23:24
-------
Yes, I have the patch already. Its a one liner.
Index: trans-io.c
===================================================================
--- trans-io.c (revision 149123)
+++ trans-io.c (working copy)
@@ -471,7 +471,7 @@ set_parameter_value (stmtblock_t *block,
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;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40638
