Home | History | Annotate | Download | only in fortran

Lines Matching defs:label_decl

274   tree label_decl;
286   /* Build the LABEL_DECL node. Labels have no type.  */
287   label_decl = build_decl (input_location,
288 			   LABEL_DECL, label_id, void_type_node);
289   DECL_CONTEXT (label_decl) = current_function_decl;
290   SET_DECL_MODE (label_decl, VOIDmode);
296   TREE_USED (label_decl) = 1;
298   DECL_ARTIFICIAL (label_decl) = 1;
299   return label_decl;
323       tree label_decl;
331       /* Build the LABEL_DECL node.  */
332       label_decl = gfc_build_label_decl (get_identifier (label_name));
336 	gfc_set_decl_location (label_decl, &lp->where);
338 	DECL_ARTIFICIAL (label_decl) = 1;
340       /* Store the label in the label list and return the LABEL_DECL.  */
341       lp->backend_decl = label_decl;
342       return label_decl;