Lines Matching defs:interface
1222 subroutine and the parent compilation unit is an interface, then check
1223 to see if the name we've been given is the name of the interface
1251 goto end; /* Nameless interface. */
1331 /* Create a partially populated interface symbol to carry the
1388 /* Trap a procedure with a name the same as interface in the
1395 " as a generic interface at %L",
1410 gfc_error_now ("Procedure %qs at %C has an explicit interface "
1417 subroutine-stmt of a module subprogram or of a nonabstract interface
1426 gfc_error_now ("Procedure %qs defined in interface body at %L "
2490 symbol table or the current interface. */
2613 type definition, BLOCK construct, or interface body. */
2761 "in the corresponding interface for MODULE "
4936 "in a module procedure interface body");
6359 "submodule, or interface");
6462 the interface declaration. However, this is an oportunity to
6464 interface. */
6467 gfc_error ("ELEMENTAL prefix in MODULE PROCEDURE interface is "
6474 gfc_error ("PURE prefix in MODULE PROCEDURE interface is "
6481 gfc_error ("RECURSIVE prefix in MODULE PROCEDURE interface is "
6517 /* Keep the interface formal argument list and null it so that the
6519 names of the arguments are checked here. The interface formal
6523 and populate the formal namespace of the interface symbol. */
6898 /* Match the interface for a PROCEDURE declaration,
6919 /* Get the type spec. for the procedure interface. */
6929 /* Procedure interface is itself a procedure. */
6952 /* Resolve interface if possible. That way, attr.procedure is only set
6955 while ((*proc_if)->ts.interface
6956 && *proc_if != (*proc_if)->ts.interface)
6957 *proc_if = (*proc_if)->ts.interface;
6987 /* Parse interface (with brackets). */
7023 "an interface with BIND(C)");
7053 /* Set interface. */
7063 sym->ts.interface = proc_if;
7071 sym->ts.interface = gfc_new_symbol ("", gfc_current_ns);
7072 sym->ts.interface->ts = current_ts;
7073 sym->ts.interface->attr.flavor = FL_PROCEDURE;
7074 sym->ts.interface->attr.function = 1;
7132 /* Parse interface (with brackets). */
7160 gfc_error("NOPASS or explicit interface required at %C");
7199 /* Set interface. */
7202 c->ts.interface = proc_if;
7209 c->ts.interface = gfc_new_symbol ("", gfc_current_ns);
7210 c->ts.interface->result = c->ts.interface;
7211 c->ts.interface->ts = ts;
7212 c->ts.interface->attr.flavor = FL_PROCEDURE;
7213 c->ts.interface->attr.function = 1;
7241 /* Match a PROCEDURE declaration inside an interface (R1206). */
7254 gfc_error ("PROCEDURE at %C must be in a generic interface");
7454 procedure interface body. */
7773 /* Match the empty argument list, and add the interface to
7970 procedure interface body. */
8340 target = " interface";
9836 /* Change from IFSRC_IFBODY coming from the interface declaration. */
9862 interface declaration is cleared. This allows us to add the
9863 explicit interface as is done for other type of procedure. */
9893 to receive symbols that are in an interface's formal argument list. */
9903 gfc_interface *old_interface_head, *interface;
9911 "interface");
9926 /* Store the current state of the interface. We will need it if we
9990 /* Restore the previous state of the interface. */
9991 interface = gfc_current_interface_head ();
9995 while (interface != old_interface_head)
9997 gfc_interface *i = interface->next;
9998 free (interface);
9999 interface = i;
10767 symbol table or the current interface. */
11145 /* Try to match PROCEDURE(interface). */
11176 /* Check that attribute DEFERRED is given if an interface is specified. */
11184 gfc_error ("PROCEDURE(interface) at %C should be declared DEFERRED");