[Bug fortran/40270] [4.5 Regression] Revision 147883 caused many Fortran regressions

[burnus at gcc dot gnu dot org]

------- Comment #4 from burnus at gcc dot gnu dot org  2009-05-27 14:26 -------
Thanks for reporting it. I don't quite understand why I did not see it. Anyhow,
for

   PROGRAM TEST
   END PROGRAM TEST

one gets the dump:

test ()
{
  (void) 0;
}

main (integer(kind=4) argc, character(kind=1) * * argv)
{
  static integer(kind=4) options.0[8] = {68, 255, 0, 0, 0, 1, 0, 1};

  _gfortran_set_args (argc, argv);
  _gfortran_set_options (8, &options.0[0]);
  test ();
  return 0;
}

Which looks OK. But with "-Wall -O" one gets the
  warning: 'test' defined but not used

I don't see ad hoc why "test();" is not enough to be regarded as "used", but
writing TREE directly probably means that one has to do everything manually.

How about the following patch:

Index: gcc/fortran/trans-decl.c
===================================================================
--- gcc/fortran/trans-decl.c    (revision 147906)
+++ gcc/fortran/trans-decl.c    (working copy)
@@ -4000,6 +4001,9 @@ create_main_function (tree fndecl)
   tmp = build_call_expr (fndecl, 0);
   gfc_add_expr_to_block (&body, tmp);

+  /* Mark MAIN__ as used.  */
+  TREE_USED (fndecl) = 1;
+
   /* "return 0".  */
   tmp = fold_build2 (MODIFY_EXPR, integer_type_node, DECL_RESULT (ftn_main),
                     build_int_cst (integer_type_node, 0));


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-05-27 14:26:29
               date|                            |


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