diff options
| author | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-08 21:45:22 +0000 |
|---|---|---|
| committer | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-08 21:45:22 +0000 |
| commit | f1a634766aaec4defc7ef45cda41ed8c498ca313 (patch) | |
| tree | d640f5fb27f6ae7143572c76657542cfd963af91 /gcc/fortran/iresolve.c | |
| parent | 4c9596cf8bcb0ec9fe4dddb89043f6773a2f245a (diff) | |
| download | gcc-f1a634766aaec4defc7ef45cda41ed8c498ca313.tar.gz | |
2007-03-08 Daniel Franke <franke.daniel@gmail.com>
PR fortran/30947
* check.c (gfc_check_alarm_sub): Added check for default integer
kind of status argument.
* iresolve.c (gfc_resolve_alarm_sub): Removed conversion of
status argument.
* intrinsic.texi (ALARM): Extended documentation.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122715 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 21897dd3789..12ecd061e69 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -2386,8 +2386,6 @@ gfc_resolve_alarm_sub (gfc_code *c) if (seconds->ts.kind != gfc_c_int_kind) gfc_convert_type (seconds, &ts, 2); - if (status != NULL && status->ts.kind != gfc_c_int_kind) - gfc_convert_type (status, &ts, 2); c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } |