Home
last modified time | relevance | path

Searched refs:current_interface (Results 1 – 8 of 8) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dinterface.c78 gfc_interface_info current_interface; variable
257 current_interface.type = type; in gfc_match_interface()
277 current_interface.sym = gfc_new_block = sym; in gfc_match_interface()
281 current_interface.uop = gfc_get_uop (name); in gfc_match_interface()
285 current_interface.op = op; in gfc_match_interface()
316 current_interface.type = INTERFACE_ABSTRACT; in gfc_match_abstract_interface()
350 switch (current_interface.type) in gfc_match_end_interface()
363 if (type != current_interface.type || op != current_interface.op) in gfc_match_end_interface()
366 if (current_interface.op == INTRINSIC_ASSIGN) in gfc_match_end_interface()
374 s1 = gfc_op2string (current_interface.op); in gfc_match_end_interface()
[all …]
H A Dparse.c3506 current_interface.ns = gfc_current_ns; in parse_interface()
3507 save = current_interface; in parse_interface()
3509 sym = (current_interface.type == INTERFACE_GENERIC in parse_interface()
3510 || current_interface.type == INTERFACE_USER_OP) in parse_interface()
3517 gfc_current_ns = gfc_get_namespace (current_interface.ns, 0); in parse_interface()
3558 gfc_current_ns = current_interface.ns; in parse_interface()
3571 if (current_interface.type == INTERFACE_GENERIC in parse_interface()
3582 if (current_interface.type == INTERFACE_ABSTRACT) in parse_interface()
3627 if (current_interface.type != INTERFACE_ABSTRACT && !prog_unit->attr.dummy) in parse_interface()
3630 current_interface = save; in parse_interface()
[all …]
H A Ddecl.c7251 if (current_interface.type == INTERFACE_NAMELESS in match_procedure_in_interface()
7252 || current_interface.type == INTERFACE_ABSTRACT) in match_procedure_in_interface()
8182 && current_interface.type == INTERFACE_ABSTRACT) in gfc_match_bind_c()
9907 || current_interface.type == INTERFACE_NAMELESS in gfc_match_modproc()
9908 || current_interface.type == INTERFACE_ABSTRACT) in gfc_match_modproc()
H A Dgfortran.h1961 extern gfc_interface_info current_interface;
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dinterface.cc78 gfc_interface_info current_interface; variable
257 current_interface.type = type; in gfc_match_interface()
277 current_interface.sym = gfc_new_block = sym; in gfc_match_interface()
281 current_interface.uop = gfc_get_uop (name); in gfc_match_interface()
285 current_interface.op = op; in gfc_match_interface()
316 current_interface.type = INTERFACE_ABSTRACT; in gfc_match_abstract_interface()
350 switch (current_interface.type) in gfc_match_end_interface()
363 if (type != current_interface.type || op != current_interface.op) in gfc_match_end_interface()
366 if (current_interface.op == INTRINSIC_ASSIGN) in gfc_match_end_interface()
374 s1 = gfc_op2string (current_interface.op); in gfc_match_end_interface()
[all …]
H A Dparse.cc3756 current_interface.ns = gfc_current_ns; in parse_interface()
3757 save = current_interface; in parse_interface()
3759 sym = (current_interface.type == INTERFACE_GENERIC in parse_interface()
3760 || current_interface.type == INTERFACE_USER_OP) in parse_interface()
3767 gfc_current_ns = gfc_get_namespace (current_interface.ns, 0); in parse_interface()
3808 gfc_current_ns = current_interface.ns; in parse_interface()
3821 if (current_interface.type == INTERFACE_GENERIC in parse_interface()
3832 if (current_interface.type == INTERFACE_ABSTRACT) in parse_interface()
3877 if (current_interface.type != INTERFACE_ABSTRACT && !prog_unit->attr.dummy) in parse_interface()
3880 current_interface = save; in parse_interface()
[all …]
H A Ddecl.cc7340 if (current_interface.type == INTERFACE_NAMELESS in match_procedure_in_interface()
7341 || current_interface.type == INTERFACE_ABSTRACT) in match_procedure_in_interface()
8271 && current_interface.type == INTERFACE_ABSTRACT) in gfc_match_bind_c()
9997 || current_interface.type == INTERFACE_NAMELESS in gfc_match_modproc()
9998 || current_interface.type == INTERFACE_ABSTRACT) in gfc_match_modproc()
H A Dgfortran.h2226 extern gfc_interface_info current_interface;