gcc/fortran/decl.c

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