Lines Matching refs:arrayexpr
4839 gfc_expr *arrayexpr; in gfc_conv_intrinsic_arith() local
4878 arrayexpr = arg_array->expr; in gfc_conv_intrinsic_arith()
4899 arrayss = gfc_walk_expr (arrayexpr); in gfc_conv_intrinsic_arith()
4960 gfc_conv_expr_val (&arrayse, arrayexpr); in gfc_conv_intrinsic_arith()
5322 gfc_expr *arrayexpr; in gfc_conv_intrinsic_minmaxloc() local
5346 arrayexpr = actual->expr; in gfc_conv_intrinsic_minmaxloc()
5351 if (arrayexpr->ts.type == BT_CHARACTER) in gfc_conv_intrinsic_minmaxloc()
5375 arrayss = gfc_walk_expr (arrayexpr); in gfc_conv_intrinsic_minmaxloc()
5394 if (gfc_array_size (arrayexpr, &asize)) in gfc_conv_intrinsic_minmaxloc()
5405 limit = gfc_create_var (gfc_typenode_for_spec (&arrayexpr->ts), "limit"); in gfc_conv_intrinsic_minmaxloc()
5406 switch (arrayexpr->ts.type) in gfc_conv_intrinsic_minmaxloc()
5409 tmp = gfc_build_inf_or_huge (TREE_TYPE (limit), arrayexpr->ts.kind); in gfc_conv_intrinsic_minmaxloc()
5413 n = gfc_validate_kind (arrayexpr->ts.type, arrayexpr->ts.kind, false); in gfc_conv_intrinsic_minmaxloc()
5415 arrayexpr->ts.kind); in gfc_conv_intrinsic_minmaxloc()
5428 if (op == GT_EXPR && arrayexpr->ts.type == BT_INTEGER) in gfc_conv_intrinsic_minmaxloc()
5526 gfc_conv_expr_val (&arrayse, arrayexpr); in gfc_conv_intrinsic_minmaxloc()
5656 gfc_conv_expr_val (&arrayse, arrayexpr); in gfc_conv_intrinsic_minmaxloc()
6106 gfc_expr *arrayexpr; in gfc_conv_intrinsic_minmaxval() local
6118 arrayexpr = actual->expr; in gfc_conv_intrinsic_minmaxval()
6120 if (arrayexpr->ts.type == BT_CHARACTER) in gfc_conv_intrinsic_minmaxval()
6180 arrayss = gfc_walk_expr (arrayexpr); in gfc_conv_intrinsic_minmaxval()
6198 if (gfc_array_size (arrayexpr, &asize)) in gfc_conv_intrinsic_minmaxval()
6293 gfc_conv_expr_val (&arrayse, arrayexpr); in gfc_conv_intrinsic_minmaxval()
6399 gfc_conv_expr_val (&arrayse, arrayexpr); in gfc_conv_intrinsic_minmaxval()