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:
parent
ba006834f9
commit
e51333e4d5
|
@ -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>
|
2007-03-15 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
||||||
|
|
||||||
* gfortran.h (gfc_option_t): Add flag_backtrace field.
|
* gfortran.h (gfc_option_t): Add flag_backtrace field.
|
||||||
|
|
|
@ -3137,7 +3137,7 @@ gfc_generate_function_code (gfc_namespace * ns)
|
||||||
if (sym->attr.is_main_program)
|
if (sym->attr.is_main_program)
|
||||||
{
|
{
|
||||||
tree gfc_int4_type_node = gfc_get_int_type (4);
|
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,
|
build_int_cst (gfc_int4_type_node,
|
||||||
gfc_option.warn_std),
|
gfc_option.warn_std),
|
||||||
build_int_cst (gfc_int4_type_node,
|
build_int_cst (gfc_int4_type_node,
|
||||||
|
|
Loading…
Reference in New Issue