Home | History | Annotate | Download | only in fortran

Lines Matching defs:formal

1342       /* Ideally, at this point, a copy would be made of the formal
3813   type_param_name_list = pdt->formal;
4035 	  for (f = c1->ts.u.derived->formal; f && f->next; f = f->next)
6594 /* Match a formal argument list or, if typeparam is true, a
6605   gfc_formal_arglist *formal = NULL;
6609   /* Keep the interface formal argument list and null it so that the
6611      names of the arguments are checked here. The interface formal
6615      and populate the formal namespace of the interface symbol.  */
6619       formal = progname->formal;
6620       progname->formal = NULL;
6686 	 dummy procedure.  We don't apply these attributes to formal
6718 	    gfc_error ("Unexpected junk in formal argument list at %C");
6724   /* Check for duplicate symbols in the formal argument list.  */
6739 		  gfc_error ("Duplicate symbol %qs in formal argument "
6761       if (!formal && head)
6765 	 formal arguments!  */
6766       if (!progname->abr_modproc_decl && formal && !head)
6769       for (p = formal, q = head; p && q; p = p->next, q = q->next)
6778 	    gfc_error_now ("Mismatch in MODULE PROCEDURE formal "
6785 		       "formal arguments at %C");
7497       gfc_error ("Expected formal argument list in function "
8079       for (arg = sym->formal; arg; arg = arg->next)
9880   gfc_formal_arglist *formal, *head, *tail;
9932   /* Make a new formal arglist with the symbols in the procedure
9935   for (formal = sym->formal; formal && formal->sym; formal = formal->next)
9937       if (formal == sym->formal)
9945       if (gfc_copy_dummy_sym (&fsym, formal->sym, 0))
9962 	 undone, such that the st->n.sym->formal points to the original symbol;
9963 	 if now this namespace is finalized, the formal namespace is freed,
9984    to receive symbols that are in an interface's formal argument list.  */
10747 	  for (f = extended->formal; f; f = f->next)
10749 	      if (f == extended->formal)
10761 	  g->next = sym->formal;
10762 	  sym->formal = h;