commit 2b91eb32d64821bbbd8eb9def662e7199cb14173
author Tobias Burnus <burnus@net-b.de> Fri Mar 02 12:00:04 2012 +0100
committer Tobias Burnus <burnus@gcc.gnu.org> Fri Mar 02 12:00:04 2012 +0100
tree 7563b89e889e9909533365c5c429cf256fcd7af7
parent b70db788ddf934bad426727f541822012429d8d4

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

gcc/fortran/resolve.c

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