mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-24 03:14:08 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR fortran/9972 (Failure of g77.f-torture/execute/980520-1.f)

Browse Source 
PR fortran/9972
	* toplev.c (rest_of_handle_inlining): Also consider functions
	for deferral if the language is GNU F77.

testsuite:
	* 980520-1.x: Removed.

From-SVN: r75692
This commit is contained in:
Steven Bosscher 2004-01-11 23:05:49 +00:00 committed by Steven Bosscher
parent d4968a1116
commit 53efeb8d0b
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
2004-01-11 Steven Bosscher <stevenb@suse.de>
* toplev.c (rest_of_handle_inline): Also consider functions
for deferral if the language is GNU F77.
2004-01-11 Zack Weinberg <zack@codesourcery.com>
* c-decl.c (diagnose_arglist_conflict): Add missing space to

11
gcc/testsuite/g77.f-torture/execute/980520-1.x
View File

@ -1,11 +0,0 @@
set torture_eval_before_compile {
set compiler_conditional_xfail_data {
"PR fortran/9972" \
{ "*-*-*" } \
{ "-O0" } \
{ "" }
}
}
return 0

8
gcc/toplev.c
View File

@ -2678,7 +2678,13 @@ rest_of_handle_inlining (tree decl)
if (inlinable
|| (DECL_INLINE (decl)
&& flag_inline_functions
/* Egad. This RTL deferral test conflicts with Fortran assumptions
for unreferenced symbols. See g77.f-torture/execute/980520-1.f.
But removing this line from the check breaks all languages that
use the call graph to output symbols. This hard-coded check is
the least invasive work-around. */
&& (flag_inline_functions
|| strcmp (lang_hooks.name, "GNU F77") == 0)
&& ((! TREE_PUBLIC (decl) && ! TREE_ADDRESSABLE (decl)
&& ! TREE_SYMBOL_REFERENCED (DECL_ASSEMBLER_NAME (decl))
&& ! flag_keep_inline_functions)