gcc/fortran/trans-intrinsic.cc

1287 	  /* Set the offset.  */
1292 	  /* Computing the offset is somewhat harder.  The bit_offset has to be
1295 	     offset.  */
1670   tree caf_decl, token, offset, image_index, tmp;
1898   gfc_get_caf_token_offset (se, &token, &offset, caf_decl, argse.expr,
1914 			     token, offset, image_index, argse.expr, vec,
1935   tree caf_decl, token, offset, image_index, tmp, lhs_kind, rhs_kind;
2160   /* Obtain token, offset and image index for the LHS.  */
2170     gfc_get_caf_token_offset (&lhs_se, &token, &offset, caf_decl, tmp,
2284 				   token, offset, image_index, lhs_se.expr, vec,
2340 				     14, token, offset, image_index,
2565   /* The exit label.  */
4529   /* Add the exit label.  */
5312   tree offset;
5371   offset = gfc_create_var (gfc_array_index_type, "offset");
5451      scalarizer, which changes arrays' offset when the scalarization loops
5458      to restore offset.
5494   /* An offset must be added to the loop
5500   gfc_add_modify (&loop.pre, offset, tmp);
5546 			     loop.loopvar[0], offset);
5557 			 loop.loopvar[0], offset);
5666 			     loop.loopvar[0], offset);
5787   tree offset;
5837   offset = gfc_create_var (gfc_array_index_type, "offset");
5877       /* Calculate the offset.  */
5880       gfc_add_modify (&loop.pre, offset, tmp);
5907       /* Add the offset.  */
5910 			     loop.loopvar[0], offset);
5950       /* Add the exit label.  */
6225      scalarizer, which changes arrays' offset when the scalarization loops
6231      gfc_trans_scalarized_loop_boundary even later to restore offset.
9376   /* Add the exit label.  */
9618   tree desc, dim, tmp, stride, offset;
9663   /* Set data value, dtype, and offset.  */
9685   offset = gfc_create_var (gfc_array_index_type, "offset");
9687   gfc_add_modify (&block, offset, gfc_index_zero_node);
9704   /* Calculate offset.  */
9705   gfc_add_modify (&body, offset,
9707 				   gfc_array_index_type, offset, stride));
9721   gfc_add_modify (&block, offset,
9723 				   gfc_array_index_type, offset));
9724   gfc_conv_descriptor_offset_set (&block, desc, offset);
10161       tree label = gfc_build_label_decl (NULL_TREE);
10163       tmp = build_case_label (low, low, label);
10195 	  /* Make this also the default: label.  The other possibility
10196 	     would be to add a separate default: label followed by
10198 	  label = gfc_build_label_decl (NULL_TREE);
10199 	  tmp = build_case_label (NULL_TREE, NULL_TREE, label);
11670       tree image_index, caf_decl, offset, token;
11715       gfc_get_caf_token_offset (&argse, &token, &offset, caf_decl, atom,
11721 				   token, offset, image_index, value, stat,
11729 				   token, offset, image_index, value, old, stat,
11851       tree image_index, caf_decl, offset, token;
11864       gfc_get_caf_token_offset (&argse, &token, &offset, caf_decl, atom,
11877 				 token, offset, image_index, value, stat,
11974       tree image_index, caf_decl, offset, token;
12001       gfc_get_caf_token_offset (&argse, &token, &offset, caf_decl, atom,
12006 				 token, offset, image_index, old, comp, new_val,