This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/42122] -fdump-tree-original shows wrong static decl for functions with procptr argument
- From: "pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 17 Dec 2009 05:41:16 -0000
- Subject: [Bug fortran/42122] -fdump-tree-original shows wrong static decl for functions with procptr argument
- References: <bug-42122-16146@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #1 from pault at gcc dot gnu dot org 2009-12-17 05:41 -------
Confirmed.
This is where it comes from:
Index: gcc/fortran/trans-decl.c
===================================================================
*** gcc/fortran/trans-decl.c (revision 155192)
--- gcc/fortran/trans-decl.c (working copy)
*************** build_function_decl (gfc_symbol * sym)
*** 1644,1653 ****
if (DECL_CONTEXT (fndecl) == NULL_TREE
&& !sym->attr.entry_master && !sym->attr.is_main_program)
TREE_PUBLIC (fndecl) = 1;
!
/* TREE_STATIC means the function body is defined here. */
TREE_STATIC (fndecl) = 1;
!
/* Set attributes for PURE functions. A call to a PURE function in the
Fortran 95 sense is both pure and without side effects in the C
sense. */
--- 1644,1653 ----
if (DECL_CONTEXT (fndecl) == NULL_TREE
&& !sym->attr.entry_master && !sym->attr.is_main_program)
TREE_PUBLIC (fndecl) = 1;
! #if 0
/* TREE_STATIC means the function body is defined here. */
TREE_STATIC (fndecl) = 1;
! #endif
/* Set attributes for PURE functions. A call to a PURE function in the
Fortran 95 sense is both pure and without side effects in the C
sense. */
Paul
--
pault 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-12-17 05:41:16
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42122