C++ (Cpp) g95_code2string示例

示例#1

文件： misc.c 项目： pathscale/fortran-fe

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

示例#2

文件： show.c 项目： jasonlarkin/disorder

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