gcc/fortran/trans-decl.c

268 /* Build a  backend label declaration.  Set TREE_USED for named labels.
269    The context of the label is always the current_function_decl.  All
282       /* Build an internal label name.  */
295   /* We always define the label as used, even if the original source
296      file never references the label.  We don't want all kinds of
315 /* Return the backend label declaration for a given label structure,
328       /* Validate the label declaration from the front end.  */
331       /* Build a mangled name for the label.  */
337       /* Tell the debugger where the label came from.  */
338       if (lp->value <= MAX_LABEL_VALUE)	/* An internal label.  */
343       /* Store the label in the label list and return the LABEL_DECL.  */
376      binding label (mainly those that are bind(c)).  */
438   /* It may be possible to simply use the binding label if it's
443     /* use the binding label rather than the mangled name */
1085 							"offset");
1394 /* If a variable is assigned a label, we add another two auxiliary
1419       target label's address. Otherwise, value is the length of a format string
2755 	 -fcoarray=lib the token and the offset as hidden arguments.  */
2765 	  tree offset;
2802 	  offset = build_decl (input_location, PARM_DECL,
2813 	      GFC_DECL_CAF_OFFSET (f->sym->backend_decl) = offset;
2818 	      GFC_TYPE_ARRAY_CAF_OFFSET (caf_type) = offset;
2820 	  DECL_CONTEXT (offset) = fndecl;
2821 	  DECL_ARTIFICIAL (offset) = 1;
2822 	  DECL_ARG_TYPE (offset) = TREE_VALUE (typelist);
2823 	  TREE_READONLY (offset) = 1;
2824 	  hidden_arglist = chainon (hidden_arglist, offset);
2826 	  gfc_finish_decl (offset);
6147    creates the label decls for the entry points.  */
6153   tree label;
6160       /* Add the case label.  */
6161       label = gfc_build_label_decl (NULL_TREE);
6163       tmp = build_case_label (val, NULL_TREE, label);
6167       label = gfc_build_label_decl (NULL_TREE);
6168       tmp = build1_v (GOTO_EXPR, label);
6171       /* Save the label decl.  */
6172       el->label = label;