[Bug fortran/50923] [4.4/4.5/4.6/4.7 Regression] No warning if function return value is not set

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50923

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-12-11 20:44:32 UTC ---
Author: burnus
Date: Sun Dec 11 20:44:30 2011
New Revision: 182211

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=182211
Log:
2011-12-11  Tobias Burnus  <burnus@net-b.de>

        PR fortran/50923
        * trans-decl.c (generate_local_decl): Set TREE_NO_WARNING only
        if the front end has printed a warning.
        (gfc_generate_function_code): Fix unset-result warning.

2011-12-11  Tobias Burnus  <burnus@net-b.de>

        PR fortran/50923
        * gfortran.dg/warn_function_without_result_2.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/warn_function_without_result_2.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-decl.c
    trunk/gcc/testsuite/ChangeLog