char *g95_intent_string(sym_intent u) { static mstring intents[] = { minit("UNKNOWN-INTENT", INTENT_UNKNOWN), minit("IN", INTENT_IN), minit("OUT", INTENT_OUT), minit("INOUT", INTENT_INOUT), minit(NULL, -1) }; return g95_code2string(intents, u); }
static void show_array_spec(g95_array_spec *as) { int i; g95_status("as('%s', %d", g95_code2string(array_specs, as->type), as->rank); for(i=0; i<as->rank; i++) { g95_status(", lower%d=", i); g95_show_expr(as->lower[i]); g95_status(", upper%d=", i); g95_show_expr(as->upper[i]); } g95_status(")"); }