procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
From-SVN: r122674
This commit is contained in:
Brooks Moses 2007-03-07 20:50:25 +00:00 • committed by Brooks Moses
parent 581f006c4a
commit a24ff43fba
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -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

2
gcc/fortran/iresolve.c
View file

@ -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