Home | History | Annotate | Download | only in fortran

Lines Matching defs:lbound

1053 	  GFC_TYPE_ARRAY_LBOUND (type, dim) = create_index_var ("lbound", nest);
1076 GFC_TYPE_ARRAY_LBOUND (type, dim) = create_index_var ("lbound", nest);
1148 tree lbound, ubound;
1149 lbound = GFC_TYPE_ARRAY_LBOUND (type, dim);
1151 rtype = build_range_type (gfc_array_index_type, lbound, ubound);
1156 the artificial lbound.N or ubound.N DECL_NAME doesn't
1158 if (lbound
1159 && VAR_P (lbound)
1160 && DECL_ARTIFICIAL (lbound)
1161 && DECL_IGNORED_P (lbound))
1163 if (DECL_NAME (lbound)
1164 && strstr (IDENTIFIER_POINTER (DECL_NAME (lbound)),
1165 "lbound") != 0)
1166 DECL_NAMELESS (lbound) = 1;
1167 DECL_IGNORED_P (lbound) = 0;
7160 /* Calculate offset + set lbound, ubound and stride. */
7186 /* gfc->dim[i].lbound = ... */
7196 /* gfc->dim[i].ubound = gfc->dim[i].lbound + cfi->dim[i].extent - 1. */
7229 /* gfc->offset -= gfc->dim[i].stride * gfc->dim[i].lbound. */
7410 /* cfi->dim[i].lower_bound = gfc->dim[i].lbound */
7413 /* cfi->dim[i].extent = gfc->dim[i].ubound - gfc->dim[i].lbound + 1. */