Lines Matching defs:SCALAR
85 /* Convert a scalar to an array descriptor. To be used for assumed-rank
89 get_scalar_to_descriptor_type (tree scalar, symbol_attribute attr)
100 if (POINTER_TYPE_P (TREE_TYPE (scalar)))
101 scalar = TREE_TYPE (scalar);
102 return gfc_get_array_type_bounds (TREE_TYPE (scalar), 0, 0, NULL, NULL, 1,
107 gfc_conv_scalar_to_descriptor (gfc_se *se, tree scalar, symbol_attribute attr)
111 type = get_scalar_to_descriptor_type (scalar, attr);
112 etype = TREE_TYPE (scalar);
116 if (CONSTANT_CLASS_P (scalar))
119 tmp = gfc_create_var (TREE_TYPE (scalar), "scalar");
120 gfc_add_modify (&se->pre, tmp, scalar);
121 scalar = tmp;
123 if (!POINTER_TYPE_P (TREE_TYPE (scalar)))
124 scalar = gfc_build_addr_expr (NULL_TREE, scalar);
129 gfc_conv_descriptor_data_set (&se->pre, desc, scalar);
136 gfc_add_modify (&se->post, scalar,
137 fold_convert (TREE_TYPE (scalar),
770 /* Scalar to an assumed-rank array. */
912 /* Create a new class container, which is required as scalar coarrays
1135 address of a temporary scalar class object of the 'declared'
1708 /* The _def_init is always scalar. */
1723 /* Scalar initialization needs the _data component. */
2246 only scalar components/variables; the Fortran standard guarantees this. */
2909 /* Dereference non-character scalar dummy arguments. */
2918 /* Dereference scalar hidden result. */
4489 /* If the argument is a pass-by-value scalar, use the value as is. */
4508 /* If the argument is a scalar, a pointer to an array or an allocatable,
6049 enum {MISSING = 0, ELEMENTAL, SCALAR, SCALAR_POINTER, ARRAY};
6183 /* For scalar arguments with VALUE attribute which are passed by
6337 bool scalar;
6342 /* Check whether the expression is a scalar or not; we cannot use
6345 scalar = argss == gfc_ss_terminator;
6346 if (!scalar)
6349 /* Special handling for passing scalar polymorphic coarrays;
6358 scalar = false;
6361 /* A scalar or transformational function. */
6362 if (scalar)
6698 /* Wrap scalar variable in a descriptor. We need to convert
6725 /* Scalar pointer dummy args require an extra level of
7101 case (SCALAR):
7153 && tmp_ss->info->data.scalar.value != NULL_TREE)
7155 tmp = tmp_ss->info->data.scalar.value;
7737 /* Allocatable scalar function results must be freed and nullified
7761 /* f2c calling conventions require a scalar default real function to
8232 scalar. */
8531 /* The rhs is scalar. Add a ss for the expression. */
8759 /* Allocate or reallocate scalar component, as necessary. */
8909 /* Scalar pointers. */
9116 /* Scalar component (excluding deferred parameters). */
9403 scalar quantity.
9420 /* Substitute a scalar expression evaluated outside the scalarization
9422 se->expr = ss_info->data.scalar.value;
9512 numeric expressions. Used for scalar values where inserting cleanup code
9539 /* Converts an expression so that it can be passed by reference. Scalar
9552 /* Returns a reference to the scalar evaluated outside the loop
9932 bool scalar, non_proc_ptr_assign;
9944 /* Check whether the expression is a scalar or not; we cannot use
9947 scalar = ss == gfc_ss_terminator;
9948 if (!scalar)
9960 if (scalar)
9962 /* Scalar pointers. */
10410 /* Generate code for assignment of scalar variables. Includes character
10430 2. When assigning a scalar to an array, we evaluate the scalar value out
11204 /* Allocate or reallocate scalar lhs, as necessary. */
11234 /* Since this is a scalar lhs, we can afford to do this. That is,
11674 /* Find a non-scalar SS from the lhs. */
11687 /* The rhs is scalar. Add a ss for the expression. */
11750 /* Deal with the case of a scalar class function assigned to a derived type. */
11812 msg = _("Assignment of scalar to unallocated array");
11841 /* Assignments of scalar derived types with allocatable components
11888 a scalar to array assignment, this is done in gfc_trans_scalar_assign
11990 /* Use the scalar assignment as is. */
Indexes created Sat Feb 28 05:31:39 UTC 2026