Home | History | Annotate | Download | only in fortran

Lines Matching refs:from_len

1422   tree from_len;
1436   from_len = to_len = NULL_TREE;
1472 	from_len = gfc_class_len_or_zero_get (from);
1474 	from_len = build_zero_cst (size_type_node);
1528 	  tree from_len;
1533 	  from_len = gfc_conv_descriptor_size (from_data, 1);
1534 	  from_len = fold_convert (TREE_TYPE (orig_nelems), from_len);
1536 				  logical_type_node, from_len, orig_nelems);
1544 			       fold_convert (long_integer_type_node, from_len));
1565       /* In initialization mode from_len is a constant zero.  */
1566       if (unlimited && !integer_zerop (from_len))
1568 	  vec_safe_push (args, from_len);
1587 				 logical_type_node, from_len,
1588 				 build_zero_cst (TREE_TYPE (from_len)));
1608       /* In initialization mode from_len is a constant zero.  */
1609       if (unlimited && !integer_zerop (from_len))
1611 	  vec_safe_push (args, from_len);
1615 				 logical_type_node, from_len,
1616 				 build_zero_cst (TREE_TYPE (from_len)));
9673   tree tmp, to_len = NULL_TREE, from_len = NULL_TREE, lhs_vptr;
9746 		from_len = trans_get_upoly_len (block, vptr_expr);
9763 		from_len = gfc_class_len_get (GFC_DECL_SAVED_DESCRIPTOR (
9778 		from_len = gfc_class_len_get (tmp);
9806 	  if (from_len == NULL_TREE)
9809 		from_len = rse->string_length;
9816 		  from_len = gfc_evaluate_now (se.expr, block);
9819 		from_len = build_zero_cst (gfc_charlen_type_node);
9822 						     from_len));
9830     *from_lenp = from_len;
11454   tree tmp, fcn, stdcopy, to_len, from_len, vptr, old_vptr;
11467 					 &from_len);
11550       if (to_len != NULL_TREE && !integer_zerop (from_len))
11553 	  vec_safe_push (args, from_len);
11558 				 logical_type_node, from_len,
11559 				 build_zero_cst (TREE_TYPE (from_len)));