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);
}
