From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 4 Jul 2009 04:16:59 +0000 (+0000)
Subject: re PR fortran/40638 (RTE: "Unit number in I/O statement too large" -- fails with... 
X-Git-Tag: releases/gcc-4.3.4~92
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6a55cd8f7c7127600d70769932a3ee64b0aa5771;p=thirdparty%2Fgcc.git

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: r149220
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 536148280f79..ee62ed98d191 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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-05-10  Paul Thomas  <pault@gcc.gnu.org>
 
 	Backport from mainline:
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 1e124154a4ad..19bd796dda61 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -454,7 +454,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;