Home | History | Annotate | Download | only in fortran

Lines Matching defs:gfc

5541   tree cfi, gfc, tmp, tmp2;
5560       gfc = se.expr;
5562       if (!POINTER_TYPE_P (TREE_TYPE (gfc)))
5563 	gfc = gfc_build_addr_expr (NULL, gfc);
5591       gfc = se.expr;
5592       /* For dt(:)%var the elem_len*stride != sm, hence, GFC uses
5596       if (POINTER_TYPE_P (TREE_TYPE (gfc)))
5597 	gfc = build_fold_indirect_ref_loc (input_location, gfc);
5599 	 gfc_get_dataptr_offset (&se.pre, gfc, gfc, NULL, true, e);
5631     rank = fold_convert (signed_char_type_node, gfc_conv_descriptor_rank (gfc));
5702       gfc_add_modify (&block, tmp, fold_convert (TREE_TYPE (tmp), gfc));
5707       tmp2 = gfc_conv_descriptor_data_get (gfc);
5752       tmp = gfc_conv_descriptor_elem_len (gfc);
5765 				gfc_conv_descriptor_type (gfc));
5767 				gfc_conv_descriptor_elem_len (gfc));
5791       /* Note: could also be kind=4, with cfi->elem_len = gfc->elem_len*4.  */
5840 				   ? gfc->dim[i].lbound : 0 */
5842 	tmp = gfc_conv_descriptor_lbound_get (gfc, idx);
5846       /* cfi->dim[i].extent = gfc->dim[i].ubound - gfc->dim[i].lbound + 1.  */
5848 			     gfc_conv_descriptor_ubound_get (gfc, idx),
5849 			     gfc_conv_descriptor_lbound_get (gfc, idx));
5853       /* d->dim[n].sm = gfc->dim[i].stride  * gfc->span); */
5855 			     gfc_conv_descriptor_stride_get (gfc, idx),
5856 			     gfc_conv_descriptor_span_get (gfc));
5912       gfc_add_modify (&block, gfc, fold_convert (TREE_TYPE (gfc), tmp));
5917       gfc_conv_descriptor_data_set (&block, gfc, tmp);
5921 	  /* gfc->span = cfi->elem_len.  */
5927 	  /* gfc->span = ((cfi->dim[0].sm % cfi->elem_len)
5939       gfc_conv_descriptor_span_set (&block2, gfc, tmp);
5942       gfc_conv_descriptor_offset_set (&block2, gfc, gfc_index_zero_node);
5948       /* gfc->dim[i].lbound = ... */
5950       gfc_conv_descriptor_lbound_set (&loop_body, gfc, idx, tmp);
5952       /* gfc->dim[i].ubound = gfc->dim[i].lbound + cfi->dim[i].extent - 1. */
5954 			     gfc_conv_descriptor_lbound_get (gfc, idx),
5958       gfc_conv_descriptor_ubound_set (&loop_body, gfc, idx, tmp);
5960       /* gfc->dim[i].stride = cfi->dim[i].sm / cfi>elem_len */
5966       gfc_conv_descriptor_stride_set (&loop_body, gfc, idx, tmp);
5968       /* gfc->offset -= gfc->dim[i].stride * gfc->dim[i].lbound. */
5970 			     gfc_conv_descriptor_stride_get (gfc, idx),
5971 			     gfc_conv_descriptor_lbound_get (gfc, idx));
5973 			     gfc_conv_descriptor_offset_get (gfc), tmp);
5974       gfc_conv_descriptor_offset_set (&loop_body, gfc, tmp);