------- Comment #4 from pinskia at gcc dot gnu dot org 2006-01-07 19:27 ------- (In reply to comment #3) > Index: gcc/fortran/resolve.c > =================================================================== > *** gcc/fortran/resolve.c (revision 109449) > --- gcc/fortran/resolve.c (working copy) > *************** resolve_function (gfc_expr * expr) > *** 1157,1162 **** > --- 1157,1172 ---- > try t; > int temp;
The only question I have with this patch is the following still passes (this is the main reason why I filed PR 25710 because I could not get the testcase in there and this testcase working): function f() REAL :: f f = 1.0 end function call f contains SUBROUTINE f end SUBROUTINE end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23308