------- Comment #4 from dave dot korn dot cygwin at gmail dot com 2009-05-30
15:34 -------
(In reply to comment #3)
> About to test this:
That was wrong. This is what I should have said:
$ svn diff fortran/trans-decl.c
Index: fortran/trans-decl.c
===================================================================
--- fortran/trans-decl.c (revision 147949)
+++ fortran/trans-decl.c (working copy)
@@ -3859,7 +3859,8 @@
tmp = build_function_type_list (integer_type_node, integer_type_node,
build_pointer_type (pchar_type_node),
NULL_TREE);
- ftn_main = build_decl (FUNCTION_DECL, get_identifier ("main"), tmp);
+ main_identifier_node = get_identifier ("main");
+ ftn_main = build_decl (FUNCTION_DECL, main_identifier_node, tmp);
DECL_EXTERNAL (ftn_main) = 0;
TREE_PUBLIC (ftn_main) = 1;
TREE_STATIC (ftn_main) = 1;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40309
