diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-03-02 12:00:04 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-03-02 12:00:04 +0100 |
| commit | 2b91eb32d64821bbbd8eb9def662e7199cb14173 (patch) | |
| tree | 7563b89e889e9909533365c5c429cf256fcd7af7 /gcc/fortran/resolve.c | |
| parent | b70db788ddf934bad426727f541822012429d8d4 (diff) | |
| download | gcc-2b91eb32d64821bbbd8eb9def662e7199cb14173.zip gcc-2b91eb32d64821bbbd8eb9def662e7199cb14173.tar.gz gcc-2b91eb32d64821bbbd8eb9def662e7199cb14173.tar.bz2 | |
re PR fortran/52452 (INTRINSIC cannot be applied to gfortran's ETIME)
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52452
* resolve.c (resolve_intrinsic): Don't search for a
function if we know that it is a subroutine.
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52452
* gfortran.dg/intrinsic_8.f90: New.
From-SVN: r184778
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 4dcf9b1..824bc25 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1496,7 +1496,7 @@ resolve_intrinsic (gfc_symbol *sym, locus *loc) if (sym->intmod_sym_id) isym = gfc_intrinsic_function_by_id ((gfc_isym_id) sym->intmod_sym_id); - else + else if (!sym->attr.subroutine) isym = gfc_find_function (sym->name); if (isym) |