* 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 74e623861bc0234043e3259b5d2fa4f220ec6f9f..cbdf82d63eb43cde91aae7f78b28d21e587af7ce 100644 (file)
--- 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 63741f2ba6f8397fe9e03c5cfb92a9c351b013c5..21897dd3789fd4c380ebc42e2d63a03e226fd2bd 100644 (file)
--- 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