From: brooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 7 Mar 2007 20:50:25 +0000 (+0000)
Subject: * iresolve.c (gfc_resolve_ishftc): Correct s_kind value.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0f493cacc55119687a88e5884b626a5afa9239c4;p=thirdparty%2Fgcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122674 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 74e623861bc0..cbdf82d63eb4 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 63741f2ba6f8..21897dd3789f 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