gcc/fortran/trans.c

129    return a pointer to the VAR_DECL node for this variable.  */
347   /* Use pointer arithmetic for deferred character length array
368   /* If the array reference is to a pointer, whose target contains a
370      and reference the element with pointer arithmetic.  */
649 gfc_allocate_using_malloc (stmtblock_t * block, tree pointer,
668   gfc_add_modify (block, pointer,
669 	  fold_convert (TREE_TYPE (pointer),
698 				boolean_type_node, pointer,
721 gfc_allocate_using_lib (stmtblock_t * block, tree pointer, tree size,
759 			 TREE_TYPE (pointer), pointer,
760 			 fold_convert ( TREE_TYPE (pointer), tmp));
832       /* In the front end, we represent the lock variable as pointer. However,
833 	 the FE only passes the pointer around and leaves the actual
963 	  /* No copy back needed, hence set attr's allocatable/pointer
1004 	      /* No copy back needed, hence set attr's allocatable/pointer
1046       if (comp->attr.pointer)
1239     deallocate (void *pointer, GFC_INTEGER_4 * stat)
1241       if (!pointer)
1250 	  free (pointer);
1265    For coarrays, "pointer" must be the array descriptor and not its
1268 gfc_deallocate_with_status (tree pointer, tree status, tree errmsg,
1279       gcc_assert (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (pointer)));
1280       caf_decl = pointer;
1281       pointer = gfc_conv_descriptor_data_get (caf_decl);
1282       STRIP_NOPS (pointer);
1285   cond = fold_build2_loc (input_location, EQ_EXPR, boolean_type_node, pointer,
1286 			  build_int_cst (TREE_TYPE (pointer), 0));
1331 				 fold_convert (pvoid_type_node, pointer));
1434 gfc_deallocate_scalar_with_status (tree pointer, tree status, bool can_fail,
1441   cond = fold_build2_loc (input_location, EQ_EXPR, boolean_type_node, pointer,
1442 			  build_int_cst (TREE_TYPE (pointer), 0));
1487       tmp = build_fold_indirect_ref_loc (input_location, pointer);
1494 			     fold_convert (pvoid_type_node, pointer));