Home | History | Annotate | Download | only in fortran

Lines Matching defs:is_contiguous

1319 	  && (is_contiguous || !final_rank3->attr.contiguous
1350 			      gfc_symbol *is_contiguous, gfc_expr *rank,
1388 			|| is_contiguous)
1410      add is_contiguous check.  */
1423       expr2->value.op.op2 = gfc_lval_expr_from_sym (is_contiguous);
1612   gfc_symbol *ptr = NULL, *idx, *idx2, *is_contiguous, *offset, *nelem;
1792   /* Create is_contiguous variable.  */
1793   gfc_get_symbol ("is_contiguous", sub_ns, &is_contiguous);
1794   is_contiguous->ts.type = BT_LOGICAL;
1795   is_contiguous->ts.kind = gfc_default_logical_kind;
1796   is_contiguous->attr.flavor = FL_VARIABLE;
1797   is_contiguous->attr.artificial = 1;
1798   gfc_set_sym_referenced (is_contiguous);
1799   gfc_commit_symbol (is_contiguous);
1843   /* Set:  is_contiguous = .true.  */
1846   last_code->expr1 = gfc_lval_expr_from_sym (is_contiguous);
1868        if (strides (idx) /= sizes(i-1)) is_contiguous = .false.
1950   /* if (strides (idx) /= sizes(idx-1)) is_contiguous = .false.  */
1992   /* if body: is_contiguous = .false.  */
1995   block->expr1 = gfc_lval_expr_from_sym (is_contiguous);
2105 					  sizes, idx2, offset, is_contiguous,