diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 09:27:48 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 09:27:48 +0000 |
| commit | 279dc72feede56719335d771f23babe9330096a3 (patch) | |
| tree | ff400275b8d7c6494715874e348b5de2b2f15faa /gcc/fortran/iresolve.c | |
| parent | 744c2d412b76c9b2abc14176d120429d7207ad95 (diff) | |
| download | gcc-279dc72feede56719335d771f23babe9330096a3.tar.gz | |
2009-11-30 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 154750 (or near)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@154757 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index ee8609e696b..960be088531 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -1,5 +1,5 @@ /* Intrinsic function resolution. - Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 + Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. Contributed by Andy Vaught & Katherine Holcomb @@ -2573,13 +2573,12 @@ void gfc_resolve_alarm_sub (gfc_code *c) { const char *name; - gfc_expr *seconds, *handler, *status; + gfc_expr *seconds, *handler; gfc_typespec ts; gfc_clear_ts (&ts); seconds = c->ext.actual->expr; handler = c->ext.actual->next->expr; - status = c->ext.actual->next->next->expr; ts.type = BT_INTEGER; ts.kind = gfc_c_int_kind; @@ -3261,14 +3260,12 @@ gfc_resolve_fseek_sub (gfc_code *c) gfc_expr *unit; gfc_expr *offset; gfc_expr *whence; - gfc_expr *status; gfc_typespec ts; gfc_clear_ts (&ts); unit = c->ext.actual->expr; offset = c->ext.actual->next->expr; whence = c->ext.actual->next->next->expr; - status = c->ext.actual->next->next->next->expr; if (unit->ts.kind != gfc_c_int_kind) { |