OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-decl.c (gfc_generate_function_code): Use all arguments of set_std. 

2007-03-16  Tobias Burnus  <burnus@net-b.de>

       * trans-decl.c (gfc_generate_function_code): Use all arguments of
         set_std.

From-SVN: r122981
This commit is contained in:
Tobias Burnus 2007-03-16 10:50:18 +01:00 committed by Tobias Burnus
parent ba006834f9
commit e51333e4d5
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2007-03-16 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_generate_function_code): Use all arguments of
set_std.
2007-03-15 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* gfortran.h (gfc_option_t): Add flag_backtrace field.

2
gcc/fortran/trans-decl.c
View File

@ -3137,7 +3137,7 @@ gfc_generate_function_code (gfc_namespace * ns)
if (sym->attr.is_main_program)
{
tree gfc_int4_type_node = gfc_get_int_type (4);
tmp = build_call_expr (gfor_fndecl_set_std, 3,
tmp = build_call_expr (gfor_fndecl_set_std, 5,
build_int_cst (gfc_int4_type_node,
gfc_option.warn_std),
build_int_cst (gfc_int4_type_node,