Home
last modified time | relevance | path

Searched refs:gfc_option (Results 1 – 25 of 80) sorted by relevance

1234

/netbsd/external/gpl3/gcc/dist/gcc/fortran/
H A Doptions.c33 gfc_option_t gfc_option; variable
144 gfc_option.module_dir = NULL; in gfc_init_options()
149 gfc_option.max_errors = 25; in gfc_init_options()
151 gfc_option.flag_preprocessed = 0; in gfc_init_options()
152 gfc_option.flag_d_lines = -1; in gfc_init_options()
155 gfc_option.fpe = 0; in gfc_init_options()
160 gfc_option.rtcheck = 0; in gfc_init_options()
389 gfc_option.flag_d_lines = 0; in gfc_post_options()
533 gfc_option.fpe_summary = 0; in gfc_handle_fpe_option()
546 gfc_option.fpe_summary = 0; in gfc_handle_fpe_option()
[all …]
H A Doptions.cc33 gfc_option_t gfc_option; variable
144 gfc_option.module_dir = NULL; in gfc_init_options()
149 gfc_option.max_errors = 25; in gfc_init_options()
151 gfc_option.flag_preprocessed = 0; in gfc_init_options()
152 gfc_option.flag_d_lines = -1; in gfc_init_options()
155 gfc_option.fpe = 0; in gfc_init_options()
160 gfc_option.rtcheck = 0; in gfc_init_options()
401 gfc_option.flag_d_lines = 0; in gfc_post_options()
547 gfc_option.fpe_summary = 0; in gfc_handle_fpe_option()
560 gfc_option.fpe_summary = 0; in gfc_handle_fpe_option()
[all …]
H A Dscanner.cc358 if (gfc_option.module_dir && gfc_cpp_enabled ()) in gfc_check_include_dirs()
460 free (gfc_option.module_dir); in gfc_release_include_path()
1193 if (gfc_option.flag_d_lines != -1 && (c == 'd' || c == 'D')) in skip_fixed_comments()
1195 if (gfc_option.flag_d_lines == 0) in skip_fixed_comments()
1380 if (++continue_count == gfc_option.max_continue_free) in gfc_next_char_literal()
1384 "statement at %C", gfc_option.max_continue_free); in gfc_next_char_literal()
1609 if (++continue_count == gfc_option.max_continue_fixed) in gfc_next_char_literal()
1614 gfc_option.max_continue_fixed); in gfc_next_char_literal()
1892 || (gfc_option.flag_d_lines != -1 && (c == 'd' || c == 'D')))) in load_line()
H A Dscanner.c413 free (gfc_option.module_dir); in gfc_release_include_path()
1152 if (gfc_option.flag_d_lines != -1 && (c == 'd' || c == 'D')) in skip_fixed_comments()
1154 if (gfc_option.flag_d_lines == 0) in skip_fixed_comments()
1338 if (++continue_count == gfc_option.max_continue_free) in gfc_next_char_literal()
1342 "statement at %C", gfc_option.max_continue_free); in gfc_next_char_literal()
1561 if (++continue_count == gfc_option.max_continue_fixed) in gfc_next_char_literal()
1566 gfc_option.max_continue_fixed); in gfc_next_char_literal()
1844 || (gfc_option.flag_d_lines != -1 && (c == 'd' || c == 'D')))) in load_line()
H A Derror.c860 warning = ((gfc_option.warn_std & std) != 0) && !inhibit_warnings; in gfc_notification_std()
861 if ((gfc_option.allow_std & std) != 0 && !warning) in gfc_notification_std()
913 const int wstd = std & gfc_option.warn_std; /* Standard to warn about. */ in gfc_notify_std()
914 const int estd = std & ~gfc_option.allow_std; /* Standard to error about. */ in gfc_notify_std()
H A Derror.cc961 warning = ((gfc_option.warn_std & std) != 0) && !inhibit_warnings; in gfc_notification_std()
962 if ((gfc_option.allow_std & std) != 0 && !warning) in gfc_notification_std()
1014 const int wstd = std & gfc_option.warn_std; /* Standard to warn about. */ in gfc_notify_std()
1015 const int estd = std & ~gfc_option.allow_std; /* Standard to error about. */ in gfc_notify_std()
H A Dmodule.c6089 && (gfc_option.allow_std & GFC_STD_F2003)) in write_symtree()
6247 if (gfc_option.module_dir != NULL) in dump_module()
6249 n += strlen (gfc_option.module_dir); in dump_module()
6251 strcpy (filename, gfc_option.module_dir); in dump_module()
6530 not_in_std = (gfc_option.allow_std & d) == 0; \ in import_iso_c_binding_module()
6535 not_in_std = (gfc_option.allow_std & d) == 0; \ in import_iso_c_binding_module()
6617 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6622 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6627 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6632 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
[all …]
H A Dmodule.cc6295 && (gfc_option.allow_std & GFC_STD_F2003)) in write_symtree()
6453 if (gfc_option.module_dir != NULL) in dump_module()
6455 n += strlen (gfc_option.module_dir); in dump_module()
6457 strcpy (filename, gfc_option.module_dir); in dump_module()
6736 not_in_std = (gfc_option.allow_std & d) == 0; \ in import_iso_c_binding_module()
6741 not_in_std = (gfc_option.allow_std & d) == 0; \ in import_iso_c_binding_module()
6823 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6828 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6833 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6838 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
[all …]
H A Dinterface.c1270 && !((gfc_option.allow_std & GFC_STD_F2008) in generic_correspondence()
1284 || ((gfc_option.allow_std & GFC_STD_F2008) in generic_correspondence()
1837 if ((gfc_option.allow_std & GFC_STD_F2008) in gfc_compare_interfaces()
2707 if (formal->ts.kind != 1 && (gfc_option.allow_std & GFC_STD_GNU) == 0) in compare_parameter()
2716 if (where && (gfc_option.allow_std & GFC_STD_F2003) == 0) in compare_parameter()
2724 return ((gfc_option.allow_std & GFC_STD_F2003) != 0); in compare_parameter()
3171 || (gfc_option.allow_std & GFC_STD_F2008) == 0)) in gfc_compare_actual_formal()
3176 || (gfc_option.allow_std & GFC_STD_F2008) == 0)))) in gfc_compare_actual_formal()
3280 if (gfc_option.warn_std == 0) in gfc_compare_actual_formal()
3351 && (gfc_option.allow_std & GFC_STD_F2008) == 0 in gfc_compare_actual_formal()
H A Dcpp.c475 cpp_option->preprocessed = gfc_option.flag_preprocessed; in gfc_cpp_post_options()
574 if (gfc_option.flag_preprocessed) in gfc_cpp_init()
H A Dcpp.cc525 cpp_option->preprocessed = gfc_option.flag_preprocessed; in gfc_cpp_post_options()
605 if (gfc_option.flag_preprocessed) in gfc_cpp_init()
H A Dexpr.c2750 if (gfc_option.warn_std & GFC_STD_F2003) in check_inquiry()
2752 if (gfc_option.warn_std & GFC_STD_F95) in check_inquiry()
2855 if (gfc_option.allow_std & GFC_STD_F2008) in check_transformational()
2857 else if (gfc_option.allow_std & GFC_STD_F2003) in check_transformational()
4668 int init_logical = gfc_option.flag_init_logical; in gfc_build_init_expr()
4683 if (force || gfc_option.flag_init_integer != GFC_INIT_INTEGER_OFF) in gfc_build_init_expr()
4685 gfc_option.flag_init_integer_value); in gfc_build_init_expr()
4778 = (unsigned char) gfc_option.flag_init_character_value; in gfc_build_init_expr()
4786 && (force || gfc_option.flag_init_character == GFC_INIT_CHARACTER_ON) in gfc_build_init_expr()
4800 gfc_option.flag_init_character_value; in gfc_build_init_expr()
[all …]
H A Dexpr.cc2767 if (gfc_option.warn_std & GFC_STD_F2003) in check_inquiry()
2769 if (gfc_option.warn_std & GFC_STD_F95) in check_inquiry()
2872 if (gfc_option.allow_std & GFC_STD_F2008) in check_transformational()
2874 else if (gfc_option.allow_std & GFC_STD_F2003) in check_transformational()
4690 int init_logical = gfc_option.flag_init_logical; in gfc_build_init_expr()
4705 if (force || gfc_option.flag_init_integer != GFC_INIT_INTEGER_OFF) in gfc_build_init_expr()
4707 gfc_option.flag_init_integer_value); in gfc_build_init_expr()
4800 = (unsigned char) gfc_option.flag_init_character_value; in gfc_build_init_expr()
4808 && (force || gfc_option.flag_init_character == GFC_INIT_CHARACTER_ON) in gfc_build_init_expr()
4822 gfc_option.flag_init_character_value; in gfc_build_init_expr()
[all …]
H A Dinterface.cc1281 && !((gfc_option.allow_std & GFC_STD_F2008) in generic_correspondence()
1295 || ((gfc_option.allow_std & GFC_STD_F2008) in generic_correspondence()
1849 if ((gfc_option.allow_std & GFC_STD_F2008) in gfc_compare_interfaces()
2756 if (formal->ts.kind != 1 && (gfc_option.allow_std & GFC_STD_GNU) == 0) in compare_parameter()
2765 if (where && (gfc_option.allow_std & GFC_STD_F2003) == 0) in compare_parameter()
2773 return ((gfc_option.allow_std & GFC_STD_F2003) != 0); in compare_parameter()
3237 || (gfc_option.allow_std & GFC_STD_F2008) == 0)) in gfc_compare_actual_formal()
3242 || (gfc_option.allow_std & GFC_STD_F2008) == 0)))) in gfc_compare_actual_formal()
3352 if (gfc_option.warn_std == 0) in gfc_compare_actual_formal()
3508 && (gfc_option.allow_std & GFC_STD_F2008) == 0 in gfc_compare_actual_formal()
H A Dtrans-stmt.c2339 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2403 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2426 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2438 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2535 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2569 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2682 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2704 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
4434 save_flag = gfc_option.rtcheck; in compute_inner_temp_size()
4435 gfc_option.rtcheck &= ~GFC_RTCHECK_BOUNDS; in compute_inner_temp_size()
[all …]
H A Dtrans-stmt.cc2377 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2441 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2464 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2476 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2573 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2607 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2720 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2742 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
4470 save_flag = gfc_option.rtcheck; in compute_inner_temp_size()
4471 gfc_option.rtcheck &= ~GFC_RTCHECK_BOUNDS; in compute_inner_temp_size()
[all …]
H A Dtrans-decl.c1545 && (gfc_option.rtcheck & GFC_RTCHECK_BOUNDS) in gfc_get_symbol_decl()
6387 gfc_option.warn_std)); in create_main_function()
6390 gfc_option.allow_std)); in create_main_function()
6399 (gfc_option.rtcheck in create_main_function()
6403 gfc_option.fpe_summary)); in create_main_function()
6430 if (gfc_option.fpe != 0) in create_main_function()
6435 gfc_option.fpe)); in create_main_function()
6816 if ((gfc_option.rtcheck & GFC_RTCHECK_RECURSION) in gfc_generate_function_code()
6860 if ((gfc_option.rtcheck & GFC_RTCHECK_BOUNDS) && !sym->attr.is_bind_c) in gfc_generate_function_code()
6955 if ((gfc_option.rtcheck & GFC_RTCHECK_RECURSION) in gfc_generate_function_code()
/netbsd/external/gpl3/gcc.old/dist/gcc/fortran/
H A Doptions.c33 gfc_option_t gfc_option; variable
144 gfc_option.module_dir = NULL; in gfc_init_options()
149 gfc_option.max_errors = 25; in gfc_init_options()
151 gfc_option.flag_preprocessed = 0; in gfc_init_options()
152 gfc_option.flag_d_lines = -1; in gfc_init_options()
155 gfc_option.fpe = 0; in gfc_init_options()
160 gfc_option.rtcheck = 0; in gfc_init_options()
389 gfc_option.flag_d_lines = 0; in gfc_post_options()
533 gfc_option.fpe_summary = 0; in gfc_handle_fpe_option()
546 gfc_option.fpe_summary = 0; in gfc_handle_fpe_option()
[all …]
H A Dscanner.c413 free (gfc_option.module_dir); in gfc_release_include_path()
1152 if (gfc_option.flag_d_lines != -1 && (c == 'd' || c == 'D')) in skip_fixed_comments()
1154 if (gfc_option.flag_d_lines == 0) in skip_fixed_comments()
1338 if (++continue_count == gfc_option.max_continue_free) in gfc_next_char_literal()
1342 "statement at %C", gfc_option.max_continue_free); in gfc_next_char_literal()
1561 if (++continue_count == gfc_option.max_continue_fixed) in gfc_next_char_literal()
1566 gfc_option.max_continue_fixed); in gfc_next_char_literal()
1844 || (gfc_option.flag_d_lines != -1 && (c == 'd' || c == 'D')))) in load_line()
H A Derror.c860 warning = ((gfc_option.warn_std & std) != 0) && !inhibit_warnings; in gfc_notification_std()
861 if ((gfc_option.allow_std & std) != 0 && !warning) in gfc_notification_std()
913 const int wstd = std & gfc_option.warn_std; /* Standard to warn about. */ in gfc_notify_std()
914 const int estd = std & ~gfc_option.allow_std; /* Standard to error about. */ in gfc_notify_std()
H A Dmodule.c6089 && (gfc_option.allow_std & GFC_STD_F2003)) in write_symtree()
6247 if (gfc_option.module_dir != NULL) in dump_module()
6249 n += strlen (gfc_option.module_dir); in dump_module()
6251 strcpy (filename, gfc_option.module_dir); in dump_module()
6530 not_in_std = (gfc_option.allow_std & d) == 0; \ in import_iso_c_binding_module()
6535 not_in_std = (gfc_option.allow_std & d) == 0; \ in import_iso_c_binding_module()
6617 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6622 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6627 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
6632 if ((gfc_option.allow_std & d) == 0) \ in import_iso_c_binding_module()
[all …]
H A Dinterface.c1270 && !((gfc_option.allow_std & GFC_STD_F2008) in generic_correspondence()
1284 || ((gfc_option.allow_std & GFC_STD_F2008) in generic_correspondence()
1837 if ((gfc_option.allow_std & GFC_STD_F2008) in gfc_compare_interfaces()
2707 if (formal->ts.kind != 1 && (gfc_option.allow_std & GFC_STD_GNU) == 0) in compare_parameter()
2716 if (where && (gfc_option.allow_std & GFC_STD_F2003) == 0) in compare_parameter()
2724 return ((gfc_option.allow_std & GFC_STD_F2003) != 0); in compare_parameter()
3171 || (gfc_option.allow_std & GFC_STD_F2008) == 0)) in gfc_compare_actual_formal()
3176 || (gfc_option.allow_std & GFC_STD_F2008) == 0)))) in gfc_compare_actual_formal()
3280 if (gfc_option.warn_std == 0) in gfc_compare_actual_formal()
3351 && (gfc_option.allow_std & GFC_STD_F2008) == 0 in gfc_compare_actual_formal()
H A Dcpp.c475 cpp_option->preprocessed = gfc_option.flag_preprocessed; in gfc_cpp_post_options()
574 if (gfc_option.flag_preprocessed) in gfc_cpp_init()
H A Dexpr.c2750 if (gfc_option.warn_std & GFC_STD_F2003) in check_inquiry()
2752 if (gfc_option.warn_std & GFC_STD_F95) in check_inquiry()
2855 if (gfc_option.allow_std & GFC_STD_F2008) in check_transformational()
2857 else if (gfc_option.allow_std & GFC_STD_F2003) in check_transformational()
4668 int init_logical = gfc_option.flag_init_logical; in gfc_build_init_expr()
4683 if (force || gfc_option.flag_init_integer != GFC_INIT_INTEGER_OFF) in gfc_build_init_expr()
4685 gfc_option.flag_init_integer_value); in gfc_build_init_expr()
4778 = (unsigned char) gfc_option.flag_init_character_value; in gfc_build_init_expr()
4786 && (force || gfc_option.flag_init_character == GFC_INIT_CHARACTER_ON) in gfc_build_init_expr()
4800 gfc_option.flag_init_character_value; in gfc_build_init_expr()
[all …]
H A Dtrans-stmt.c2339 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2403 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2426 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2438 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_simple_do()
2535 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2569 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2682 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
2704 if (gfc_option.rtcheck & GFC_RTCHECK_DO) in gfc_trans_do()
4434 save_flag = gfc_option.rtcheck; in compute_inner_temp_size()
4435 gfc_option.rtcheck &= ~GFC_RTCHECK_BOUNDS; in compute_inner_temp_size()
[all …]

1234