unsigned g95_init_options(unsigned argc, const char *argv[]) { memset(&g95_option, '\0', sizeof(g95_option)); g95_option.fixed_line_length = 72; g95_option.form = FORM_UNKNOWN; g95_option.q_kind = g95_default_double_kind(); g95_option.l1 = g95_default_logical_kind(); g95_option.max_frame_size = 250000; g95_option.symbol_len = G95_MAX_SYMBOL_LEN; g95_option.cpp = -1; g95_option.short_circuit = 1; g95_option.traditional = 1; g95_option.globals = 1; g95_option.no_backslash = HAVE_WINDOWS; argc = 0; argv = NULL; #ifdef IN_GCC flag_errno_math = 0; #endif #if STD_F g95_option.fmode = 96; g95_option.symbol_len = 31; set_Wall(); g95_option.tr15581 = 1; g95_option.bounds_check = 1; g95_option.real_init = REAL_INIT_NAN; g95_option.trace = TRACE_FULL; #endif return CL_F95; }
void g95_resolve_dble(g95_expr *g, g95_expr *v) { g->ts.type = BT_REAL; g->ts.kind = g95_default_double_kind(); g->value.function.name = g95_get_string(PREFIX "dble_%c%d", g95_type_letter(v->ts.type), v->ts.kind); }