From: Brooks Moses <brooks.moses@codesourcery.com>
Date: Wed, 7 Mar 2007 20:50:25 +0000 (+0000)
Subject: * iresolve.c (gfc_resolve_ishftc): Correct s_kind value.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a24ff43fbaf29ca29750d478d0cdf5b44763141e;p=gcc.git

* iresolve.c (gfc_resolve_ishftc): Correct s_kind value.

From-SVN: r122674
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 74e623861bc..cbdf82d63eb 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-03-07  Brooks Moses  <brooks.moses@codesourcery.com>
+
+	* iresolve.c (gfc_resolve_ishftc): Correct s_kind value.
+
 2007-03-06  Daniel Franke  <franke.daniel@gmail.com>
 
 	PR documentation/30950
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c
index 63741f2ba6f..21897dd3789 100644
--- a/gcc/fortran/iresolve.c
+++ b/gcc/fortran/iresolve.c
@@ -988,7 +988,7 @@ gfc_resolve_ishftc (gfc_expr *f, gfc_expr *i, gfc_expr *shift, gfc_expr *size)
 {
   int s_kind;
 
-  s_kind = (size == NULL) ? gfc_default_integer_kind : shift->ts.kind;
+  s_kind = (size == NULL) ? gfc_default_integer_kind : size->ts.kind;
 
   f->ts = i->ts;
   f->value.function.name