Lines Matching refs:gfc_expr
35 static int min_max_choose (gfc_expr *, gfc_expr *, int, bool back_val = false);
37 gfc_expr gfc_bad_expr;
39 static gfc_expr *simplify_size (gfc_expr *, gfc_expr *, int);
77 static gfc_expr *
78 range_check (gfc_expr *result, const char *name) in range_check()
120 get_kind (bt type, gfc_expr *k, const char *name, int default_kind) in get_kind()
220 is_constant_array_expr (gfc_expr *e) in is_constant_array_expr()
245 gfc_is_size_zero_array (gfc_expr *array) in gfc_is_size_zero_array()
272 init_result_expr (gfc_expr *e, int init, gfc_expr *array) in init_result_expr()
323 gfc_expr *len = gfc_simplify_len (array, NULL); in init_result_expr()
330 gfc_expr *len = gfc_simplify_len (array, NULL); in init_result_expr()
358 static gfc_expr *
359 compute_dot_product (gfc_expr *matrix_a, int stride_a, int offset_a, in compute_dot_product()
360 gfc_expr *matrix_b, int stride_b, int offset_b, in compute_dot_product()
363 gfc_expr *result, *a, *b, *c; in compute_dot_product()
416 static gfc_expr *
417 transformational_result (gfc_expr *array, gfc_expr *dim, bt type, in transformational_result()
420 gfc_expr *result; in transformational_result()
447 typedef gfc_expr* (*transformational_op)(gfc_expr*, gfc_expr*);
455 static gfc_expr *
456 gfc_count (gfc_expr *op1, gfc_expr *op2) in gfc_count()
458 gfc_expr *result; in gfc_count()
481 static gfc_expr *
482 simplify_transformation_to_scalar (gfc_expr *result, gfc_expr *array, gfc_expr *mask, in simplify_transformation_to_scalar()
485 gfc_expr *a, *m; in simplify_transformation_to_scalar()
530 static gfc_expr *
531 simplify_transformation_to_array (gfc_expr *result, gfc_expr *array, gfc_expr *dim, in simplify_transformation_to_array()
532 gfc_expr *mask, transformational_op op, in simplify_transformation_to_array()
537 gfc_expr **arrayvec, **resultvec, **base, **src, **dest; in simplify_transformation_to_array()
556 arrayvec = XCNEWVEC (gfc_expr*, arraysize); in simplify_transformation_to_array()
582 resultvec = XCNEWVEC (gfc_expr*, resultsize); in simplify_transformation_to_array()
669 static gfc_expr *
670 simplify_transformation (gfc_expr *array, gfc_expr *dim, gfc_expr *mask, in simplify_transformation()
673 gfc_expr *result; in simplify_transformation()
703 gfc_expr *
704 gfc_simplify_abs (gfc_expr *e) in gfc_simplify_abs()
706 gfc_expr *result; in gfc_simplify_abs()
735 static gfc_expr *
736 simplify_achar_char (gfc_expr *e, gfc_expr *k, const char *name, bool ascii) in simplify_achar_char()
738 gfc_expr *result; in simplify_achar_char()
792 gfc_expr *
793 gfc_simplify_achar (gfc_expr *e, gfc_expr *k) in gfc_simplify_achar()
799 gfc_expr *
800 gfc_simplify_acos (gfc_expr *x) in gfc_simplify_acos()
802 gfc_expr *result; in gfc_simplify_acos()
833 gfc_expr *
834 gfc_simplify_acosh (gfc_expr *x) in gfc_simplify_acosh()
836 gfc_expr *result; in gfc_simplify_acosh()
867 gfc_expr *
868 gfc_simplify_adjustl (gfc_expr *e) in gfc_simplify_adjustl()
870 gfc_expr *result; in gfc_simplify_adjustl()
895 gfc_expr *
896 gfc_simplify_adjustr (gfc_expr *e) in gfc_simplify_adjustr()
898 gfc_expr *result; in gfc_simplify_adjustr()
926 gfc_expr *
927 gfc_simplify_aimag (gfc_expr *e) in gfc_simplify_aimag()
929 gfc_expr *result; in gfc_simplify_aimag()
941 gfc_expr *
942 gfc_simplify_aint (gfc_expr *e, gfc_expr *k) in gfc_simplify_aint()
944 gfc_expr *rtrunc, *result; in gfc_simplify_aint()
965 gfc_expr *
966 gfc_simplify_all (gfc_expr *mask, gfc_expr *dim) in gfc_simplify_all()
972 gfc_expr *
973 gfc_simplify_dint (gfc_expr *e) in gfc_simplify_dint()
975 gfc_expr *rtrunc, *result; in gfc_simplify_dint()
991 gfc_expr *
992 gfc_simplify_dreal (gfc_expr *e) in gfc_simplify_dreal()
994 gfc_expr *result = NULL; in gfc_simplify_dreal()
1006 gfc_expr *
1007 gfc_simplify_anint (gfc_expr *e, gfc_expr *k) in gfc_simplify_anint()
1009 gfc_expr *result; in gfc_simplify_anint()
1026 gfc_expr *
1027 gfc_simplify_and (gfc_expr *x, gfc_expr *y) in gfc_simplify_and()
1029 gfc_expr *result; in gfc_simplify_and()
1054 gfc_expr *
1055 gfc_simplify_any (gfc_expr *mask, gfc_expr *dim) in gfc_simplify_any()
1061 gfc_expr *
1062 gfc_simplify_dnint (gfc_expr *e) in gfc_simplify_dnint()
1064 gfc_expr *result; in gfc_simplify_dnint()
1076 gfc_expr *
1077 gfc_simplify_asin (gfc_expr *x) in gfc_simplify_asin()
1079 gfc_expr *result; in gfc_simplify_asin()
1128 gfc_expr *
1129 gfc_simplify_acosd (gfc_expr *x) in gfc_simplify_acosd()
1131 gfc_expr *result; in gfc_simplify_acosd()
1154 gfc_expr *
1155 gfc_simplify_asind (gfc_expr *x) in gfc_simplify_asind()
1157 gfc_expr *result; in gfc_simplify_asind()
1180 gfc_expr *
1181 gfc_simplify_atand (gfc_expr *x) in gfc_simplify_atand()
1183 gfc_expr *result; in gfc_simplify_atand()
1196 gfc_expr *
1197 gfc_simplify_asinh (gfc_expr *x) in gfc_simplify_asinh()
1199 gfc_expr *result; in gfc_simplify_asinh()
1224 gfc_expr *
1225 gfc_simplify_atan (gfc_expr *x) in gfc_simplify_atan()
1227 gfc_expr *result; in gfc_simplify_atan()
1252 gfc_expr *
1253 gfc_simplify_atanh (gfc_expr *x) in gfc_simplify_atanh()
1255 gfc_expr *result; in gfc_simplify_atanh()
1287 gfc_expr *
1288 gfc_simplify_atan2 (gfc_expr *y, gfc_expr *x) in gfc_simplify_atan2()
1290 gfc_expr *result; in gfc_simplify_atan2()
1309 gfc_expr *
1310 gfc_simplify_bessel_j0 (gfc_expr *x) in gfc_simplify_bessel_j0()
1312 gfc_expr *result; in gfc_simplify_bessel_j0()
1324 gfc_expr *
1325 gfc_simplify_bessel_j1 (gfc_expr *x) in gfc_simplify_bessel_j1()
1327 gfc_expr *result; in gfc_simplify_bessel_j1()
1339 gfc_expr *
1340 gfc_simplify_bessel_jn (gfc_expr *order, gfc_expr *x) in gfc_simplify_bessel_jn()
1342 gfc_expr *result; in gfc_simplify_bessel_jn()
1358 static gfc_expr *
1359 gfc_simplify_bessel_n2 (gfc_expr *order1, gfc_expr *order2, gfc_expr *x, in gfc_simplify_bessel_n2()
1362 gfc_expr *result; in gfc_simplify_bessel_n2()
1363 gfc_expr *e; in gfc_simplify_bessel_n2()
1538 gfc_expr *
1539 gfc_simplify_bessel_jn2 (gfc_expr *order1, gfc_expr *order2, gfc_expr *x) in gfc_simplify_bessel_jn2()
1545 gfc_expr *
1546 gfc_simplify_bessel_y0 (gfc_expr *x) in gfc_simplify_bessel_y0()
1548 gfc_expr *result; in gfc_simplify_bessel_y0()
1560 gfc_expr *
1561 gfc_simplify_bessel_y1 (gfc_expr *x) in gfc_simplify_bessel_y1()
1563 gfc_expr *result; in gfc_simplify_bessel_y1()
1575 gfc_expr *
1576 gfc_simplify_bessel_yn (gfc_expr *order, gfc_expr *x) in gfc_simplify_bessel_yn()
1578 gfc_expr *result; in gfc_simplify_bessel_yn()
1592 gfc_expr *
1593 gfc_simplify_bessel_yn2 (gfc_expr *order1, gfc_expr *order2, gfc_expr *x) in gfc_simplify_bessel_yn2()
1599 gfc_expr *
1600 gfc_simplify_bit_size (gfc_expr *e) in gfc_simplify_bit_size()
1608 gfc_expr *
1609 gfc_simplify_btest (gfc_expr *e, gfc_expr *bit) in gfc_simplify_btest()
1625 compare_bitwise (gfc_expr *i, gfc_expr *j) in compare_bitwise()
1648 gfc_expr *
1649 gfc_simplify_bge (gfc_expr *i, gfc_expr *j) in gfc_simplify_bge()
1659 gfc_expr *
1660 gfc_simplify_bgt (gfc_expr *i, gfc_expr *j) in gfc_simplify_bgt()
1670 gfc_expr *
1671 gfc_simplify_ble (gfc_expr *i, gfc_expr *j) in gfc_simplify_ble()
1681 gfc_expr *
1682 gfc_simplify_blt (gfc_expr *i, gfc_expr *j) in gfc_simplify_blt()
1692 gfc_expr *
1693 gfc_simplify_ceiling (gfc_expr *e, gfc_expr *k) in gfc_simplify_ceiling()
1695 gfc_expr *ceil, *result; in gfc_simplify_ceiling()
1717 gfc_expr *
1718 gfc_simplify_char (gfc_expr *e, gfc_expr *k) in gfc_simplify_char()
1726 static gfc_expr *
1727 simplify_cmplx (const char *name, gfc_expr *x, gfc_expr *y, int kind) in simplify_cmplx()
1729 gfc_expr *result; in simplify_cmplx()
1778 gfc_expr *
1779 gfc_simplify_cmplx (gfc_expr *x, gfc_expr *y, gfc_expr *k) in gfc_simplify_cmplx()
1791 gfc_expr *
1792 gfc_simplify_complex (gfc_expr *x, gfc_expr *y) in gfc_simplify_complex()
1811 gfc_expr *
1812 gfc_simplify_conjg (gfc_expr *e) in gfc_simplify_conjg()
1814 gfc_expr *result; in gfc_simplify_conjg()
1828 gfc_expr *
1829 gfc_simplify_atan2d (gfc_expr *y, gfc_expr *x) in gfc_simplify_atan2d()
1831 gfc_expr *result; in gfc_simplify_atan2d()
1851 gfc_expr *
1852 gfc_simplify_cos (gfc_expr *x) in gfc_simplify_cos()
1854 gfc_expr *result; in gfc_simplify_cos()
1899 gfc_expr *
1900 gfc_simplify_cosd (gfc_expr *x) in gfc_simplify_cosd()
1902 gfc_expr *result; in gfc_simplify_cosd()
1917 gfc_expr *
1918 gfc_simplify_sind (gfc_expr *x) in gfc_simplify_sind()
1920 gfc_expr *result; in gfc_simplify_sind()
1935 gfc_expr *
1936 gfc_simplify_tand (gfc_expr *x) in gfc_simplify_tand()
1938 gfc_expr *result; in gfc_simplify_tand()
1953 gfc_expr *
1954 gfc_simplify_cotand (gfc_expr *x) in gfc_simplify_cotand()
1956 gfc_expr *result; in gfc_simplify_cotand()
1975 gfc_expr *
1976 gfc_simplify_cosh (gfc_expr *x) in gfc_simplify_cosh()
1978 gfc_expr *result; in gfc_simplify_cosh()
2003 gfc_expr *
2004 gfc_simplify_count (gfc_expr *mask, gfc_expr *dim, gfc_expr *kind) in gfc_simplify_count()
2006 gfc_expr *result; in gfc_simplify_count()
2039 gfc_expr *
2040 gfc_simplify_cshift (gfc_expr *array, gfc_expr *shift, gfc_expr *dim) in gfc_simplify_cshift()
2042 gfc_expr *result; in gfc_simplify_cshift()
2044 gfc_expr **arrayvec, **resultvec; in gfc_simplify_cshift()
2045 gfc_expr **rptr, **sptr; in gfc_simplify_cshift()
2060 gfc_expr **src, **dest; in gfc_simplify_cshift()
2096 arrayvec = XCNEWVEC (gfc_expr *, arraysize); in gfc_simplify_cshift()
2104 resultvec = XCNEWVEC (gfc_expr *, arraysize); in gfc_simplify_cshift()
2248 gfc_expr *
2249 gfc_simplify_dcmplx (gfc_expr *x, gfc_expr *y) in gfc_simplify_dcmplx()
2255 gfc_expr *
2256 gfc_simplify_dble (gfc_expr *e) in gfc_simplify_dble()
2258 gfc_expr *result = NULL; in gfc_simplify_dble()
2282 gfc_expr *
2283 gfc_simplify_digits (gfc_expr *x) in gfc_simplify_digits()
2308 gfc_expr *
2309 gfc_simplify_dim (gfc_expr *x, gfc_expr *y) in gfc_simplify_dim()
2311 gfc_expr *result; in gfc_simplify_dim()
2347 gfc_expr*
2348 gfc_simplify_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_simplify_dot_product()
2368 gfc_expr *
2369 gfc_simplify_dprod (gfc_expr *x, gfc_expr *y) in gfc_simplify_dprod()
2371 gfc_expr *a1, *a2, *result; in gfc_simplify_dprod()
2389 static gfc_expr *
2390 simplify_dshift (gfc_expr *arg1, gfc_expr *arg2, gfc_expr *shiftarg, in simplify_dshift()
2393 gfc_expr *result; in simplify_dshift()
2427 gfc_expr *
2428 gfc_simplify_dshiftr (gfc_expr *arg1, gfc_expr *arg2, gfc_expr *shiftarg) in gfc_simplify_dshiftr()
2434 gfc_expr *
2435 gfc_simplify_dshiftl (gfc_expr *arg1, gfc_expr *arg2, gfc_expr *shiftarg) in gfc_simplify_dshiftl()
2441 gfc_expr *
2442 gfc_simplify_eoshift (gfc_expr *array, gfc_expr *shift, gfc_expr *boundary, in gfc_simplify_eoshift()
2443 gfc_expr *dim) in gfc_simplify_eoshift()
2446 gfc_expr *bnd; in gfc_simplify_eoshift()
2447 gfc_expr *result; in gfc_simplify_eoshift()
2449 gfc_expr **arrayvec, **resultvec; in gfc_simplify_eoshift()
2450 gfc_expr **rptr, **sptr; in gfc_simplify_eoshift()
2461 gfc_expr **src, **dest; in gfc_simplify_eoshift()
2547 arrayvec = XCNEWVEC (gfc_expr *, arraysize); in gfc_simplify_eoshift()
2555 resultvec = XCNEWVEC (gfc_expr *, arraysize); in gfc_simplify_eoshift()
2710 gfc_expr *
2711 gfc_simplify_erf (gfc_expr *x) in gfc_simplify_erf()
2713 gfc_expr *result; in gfc_simplify_erf()
2725 gfc_expr *
2726 gfc_simplify_erfc (gfc_expr *x) in gfc_simplify_erfc()
2728 gfc_expr *result; in gfc_simplify_erfc()
2856 gfc_expr *
2857 gfc_simplify_erfc_scaled (gfc_expr *x) in gfc_simplify_erfc_scaled()
2859 gfc_expr *result; in gfc_simplify_erfc_scaled()
2877 gfc_expr *
2878 gfc_simplify_epsilon (gfc_expr *e) in gfc_simplify_epsilon()
2880 gfc_expr *result; in gfc_simplify_epsilon()
2892 gfc_expr *
2893 gfc_simplify_exp (gfc_expr *x) in gfc_simplify_exp()
2895 gfc_expr *result; in gfc_simplify_exp()
2921 gfc_expr *
2922 gfc_simplify_exponent (gfc_expr *x) in gfc_simplify_exponent()
2925 gfc_expr *result; in gfc_simplify_exponent()
2957 gfc_expr *
2958 gfc_simplify_failed_or_stopped_images (gfc_expr *team ATTRIBUTE_UNUSED, in gfc_simplify_failed_or_stopped_images()
2959 gfc_expr *kind) in gfc_simplify_failed_or_stopped_images()
2970 gfc_expr *result; in gfc_simplify_failed_or_stopped_images()
2988 gfc_expr *
2989 gfc_simplify_get_team (gfc_expr *level ATTRIBUTE_UNUSED) in gfc_simplify_get_team()
3000 gfc_expr *result; in gfc_simplify_get_team()
3012 gfc_expr *
3013 gfc_simplify_float (gfc_expr *a) in gfc_simplify_float()
3015 gfc_expr *result; in gfc_simplify_float()
3027 is_last_ref_vtab (gfc_expr *e) in is_last_ref_vtab()
3049 gfc_expr *
3050 gfc_simplify_extends_type_of (gfc_expr *a, gfc_expr *mold) in gfc_simplify_extends_type_of()
3099 gfc_expr *
3100 gfc_simplify_same_type_as (gfc_expr *a, gfc_expr *b) in gfc_simplify_same_type_as()
3123 gfc_expr *
3124 gfc_simplify_floor (gfc_expr *e, gfc_expr *k) in gfc_simplify_floor()
3126 gfc_expr *result; in gfc_simplify_floor()
3149 gfc_expr *
3150 gfc_simplify_fraction (gfc_expr *x) in gfc_simplify_fraction()
3152 gfc_expr *result; in gfc_simplify_fraction()
3174 gfc_expr *
3175 gfc_simplify_gamma (gfc_expr *x) in gfc_simplify_gamma()
3177 gfc_expr *result; in gfc_simplify_gamma()
3189 gfc_expr *
3190 gfc_simplify_huge (gfc_expr *e) in gfc_simplify_huge()
3192 gfc_expr *result; in gfc_simplify_huge()
3216 gfc_expr *
3217 gfc_simplify_hypot (gfc_expr *x, gfc_expr *y) in gfc_simplify_hypot()
3219 gfc_expr *result; in gfc_simplify_hypot()
3233 gfc_expr *
3234 gfc_simplify_iachar (gfc_expr *e, gfc_expr *kind) in gfc_simplify_iachar()
3236 gfc_expr *result; in gfc_simplify_iachar()
3266 static gfc_expr *
3267 do_bit_and (gfc_expr *result, gfc_expr *e) in do_bit_and()
3278 gfc_expr *
3279 gfc_simplify_iall (gfc_expr *array, gfc_expr *dim, gfc_expr *mask) in gfc_simplify_iall()
3285 static gfc_expr *
3286 do_bit_ior (gfc_expr *result, gfc_expr *e) in do_bit_ior()
3297 gfc_expr *
3298 gfc_simplify_iany (gfc_expr *array, gfc_expr *dim, gfc_expr *mask) in gfc_simplify_iany()
3304 gfc_expr *
3305 gfc_simplify_iand (gfc_expr *x, gfc_expr *y) in gfc_simplify_iand()
3307 gfc_expr *result; in gfc_simplify_iand()
3319 gfc_expr *
3320 gfc_simplify_ibclr (gfc_expr *x, gfc_expr *y) in gfc_simplify_ibclr()
3322 gfc_expr *result; in gfc_simplify_ibclr()
3346 gfc_expr *
3347 gfc_simplify_ibits (gfc_expr *x, gfc_expr *y, gfc_expr *z) in gfc_simplify_ibits()
3349 gfc_expr *result; in gfc_simplify_ibits()
3404 gfc_expr *
3405 gfc_simplify_ibset (gfc_expr *x, gfc_expr *y) in gfc_simplify_ibset()
3407 gfc_expr *result; in gfc_simplify_ibset()
3431 gfc_expr *
3432 gfc_simplify_ichar (gfc_expr *e, gfc_expr *kind) in gfc_simplify_ichar()
3434 gfc_expr *result; in gfc_simplify_ichar()
3459 gfc_expr *
3460 gfc_simplify_ieor (gfc_expr *x, gfc_expr *y) in gfc_simplify_ieor()
3462 gfc_expr *result; in gfc_simplify_ieor()
3474 gfc_expr *
3475 gfc_simplify_index (gfc_expr *x, gfc_expr *y, gfc_expr *b, gfc_expr *kind) in gfc_simplify_index()
3477 gfc_expr *result; in gfc_simplify_index()
3546 static gfc_expr *
3547 simplify_intconv (gfc_expr *e, int kind, const char *name) in simplify_intconv()
3549 gfc_expr *result = NULL; in simplify_intconv()
3582 gfc_expr *
3583 gfc_simplify_int (gfc_expr *e, gfc_expr *k) in gfc_simplify_int()
3594 gfc_expr *
3595 gfc_simplify_int2 (gfc_expr *e) in gfc_simplify_int2()
3601 gfc_expr *
3602 gfc_simplify_int8 (gfc_expr *e) in gfc_simplify_int8()
3608 gfc_expr *
3609 gfc_simplify_long (gfc_expr *e) in gfc_simplify_long()
3615 gfc_expr *
3616 gfc_simplify_ifix (gfc_expr *e) in gfc_simplify_ifix()
3618 gfc_expr *rtrunc, *result; in gfc_simplify_ifix()
3636 gfc_expr *
3637 gfc_simplify_idint (gfc_expr *e) in gfc_simplify_idint()
3639 gfc_expr *rtrunc, *result; in gfc_simplify_idint()
3657 gfc_expr *
3658 gfc_simplify_ior (gfc_expr *x, gfc_expr *y) in gfc_simplify_ior()
3660 gfc_expr *result; in gfc_simplify_ior()
3672 static gfc_expr *
3673 do_bit_xor (gfc_expr *result, gfc_expr *e) in do_bit_xor()
3684 gfc_expr *
3685 gfc_simplify_iparity (gfc_expr *array, gfc_expr *dim, gfc_expr *mask) in gfc_simplify_iparity()
3691 gfc_expr *
3692 gfc_simplify_is_iostat_end (gfc_expr *x) in gfc_simplify_is_iostat_end()
3703 gfc_expr *
3704 gfc_simplify_is_iostat_eor (gfc_expr *x) in gfc_simplify_is_iostat_eor()
3715 gfc_expr *
3716 gfc_simplify_isnan (gfc_expr *x) in gfc_simplify_isnan()
3729 static gfc_expr *
3730 simplify_shift (gfc_expr *e, gfc_expr *s, const char *name, in simplify_shift()
3733 gfc_expr *result; in simplify_shift()
3825 gfc_expr *
3826 gfc_simplify_ishft (gfc_expr *e, gfc_expr *s) in gfc_simplify_ishft()
3832 gfc_expr *
3833 gfc_simplify_lshift (gfc_expr *e, gfc_expr *s) in gfc_simplify_lshift()
3839 gfc_expr *
3840 gfc_simplify_rshift (gfc_expr *e, gfc_expr *s) in gfc_simplify_rshift()
3846 gfc_expr *
3847 gfc_simplify_shifta (gfc_expr *e, gfc_expr *s) in gfc_simplify_shifta()
3853 gfc_expr *
3854 gfc_simplify_shiftl (gfc_expr *e, gfc_expr *s) in gfc_simplify_shiftl()
3860 gfc_expr *
3861 gfc_simplify_shiftr (gfc_expr *e, gfc_expr *s) in gfc_simplify_shiftr()
3867 gfc_expr *
3868 gfc_simplify_ishftc (gfc_expr *e, gfc_expr *s, gfc_expr *sz) in gfc_simplify_ishftc()
3870 gfc_expr *result; in gfc_simplify_ishftc()
3968 gfc_expr *
3969 gfc_simplify_kind (gfc_expr *e) in gfc_simplify_kind()
3975 static gfc_expr *
3976 simplify_bound_dim (gfc_expr *array, gfc_expr *kind, int d, int upper, in simplify_bound_dim()
3979 gfc_expr *l, *u, *result; in simplify_bound_dim()
3995 gfc_expr* dim = result; in simplify_bound_dim()
4035 gfc_expr *declared_bound; in simplify_bound_dim()
4103 static gfc_expr *
4104 simplify_bound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind, int upper) in simplify_bound()
4187 gfc_expr *bounds[GFC_MAX_DIMENSIONS]; in simplify_bound()
4188 gfc_expr *e; in simplify_bound()
4262 static gfc_expr *
4263 simplify_cobound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind, int upper) in simplify_cobound()
4328 gfc_expr *bounds[GFC_MAX_DIMENSIONS]; in simplify_cobound()
4329 gfc_expr *e; in simplify_cobound()
4392 gfc_expr *
4393 gfc_simplify_lbound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) in gfc_simplify_lbound()
4399 gfc_expr *
4400 gfc_simplify_lcobound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) in gfc_simplify_lcobound()
4405 gfc_expr *
4406 gfc_simplify_leadz (gfc_expr *e) in gfc_simplify_leadz()
4427 gfc_expr *
4428 gfc_simplify_len (gfc_expr *e, gfc_expr *kind) in gfc_simplify_len()
4430 gfc_expr *result; in gfc_simplify_len()
4467 gfc_expr *
4468 gfc_simplify_len_trim (gfc_expr *e, gfc_expr *kind) in gfc_simplify_len_trim()
4470 gfc_expr *result; in gfc_simplify_len_trim()
4491 gfc_expr *
4492 gfc_simplify_lgamma (gfc_expr *x) in gfc_simplify_lgamma()
4494 gfc_expr *result; in gfc_simplify_lgamma()
4507 gfc_expr *
4508 gfc_simplify_lge (gfc_expr *a, gfc_expr *b) in gfc_simplify_lge()
4518 gfc_expr *
4519 gfc_simplify_lgt (gfc_expr *a, gfc_expr *b) in gfc_simplify_lgt()
4529 gfc_expr *
4530 gfc_simplify_lle (gfc_expr *a, gfc_expr *b) in gfc_simplify_lle()
4540 gfc_expr *
4541 gfc_simplify_llt (gfc_expr *a, gfc_expr *b) in gfc_simplify_llt()
4551 gfc_expr *
4552 gfc_simplify_log (gfc_expr *x) in gfc_simplify_log()
4554 gfc_expr *result; in gfc_simplify_log()
4597 gfc_expr *
4598 gfc_simplify_log10 (gfc_expr *x) in gfc_simplify_log10()
4600 gfc_expr *result; in gfc_simplify_log10()
4619 gfc_expr *
4620 gfc_simplify_logical (gfc_expr *e, gfc_expr *k) in gfc_simplify_logical()
4635 gfc_expr*
4636 gfc_simplify_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) in gfc_simplify_matmul()
4638 gfc_expr *result; in gfc_simplify_matmul()
4649 gfc_expr e; in gfc_simplify_matmul()
4708 gfc_expr *e = compute_dot_product (matrix_a, stride_a, offset_a, in gfc_simplify_matmul()
4723 gfc_expr *
4724 gfc_simplify_maskr (gfc_expr *i, gfc_expr *kind_arg) in gfc_simplify_maskr()
4726 gfc_expr *result; in gfc_simplify_maskr()
4753 gfc_expr *
4754 gfc_simplify_maskl (gfc_expr *i, gfc_expr *kind_arg) in gfc_simplify_maskl()
4756 gfc_expr *result; in gfc_simplify_maskl()
4788 gfc_expr *
4789 gfc_simplify_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_simplify_merge()
4791 gfc_expr * result; in gfc_simplify_merge()
4840 gfc_expr *
4841 gfc_simplify_merge_bits (gfc_expr *i, gfc_expr *j, gfc_expr *mask_expr) in gfc_simplify_merge_bits()
4844 gfc_expr *result; in gfc_simplify_merge_bits()
4874 min_max_choose (gfc_expr *arg, gfc_expr *extremum, int sign, bool back_val) in min_max_choose()
4951 static gfc_expr *
4952 simplify_min_max (gfc_expr *expr, int sign) in simplify_min_max()
4955 gfc_expr *tmp, *ret; in simplify_min_max()
5013 gfc_expr *
5014 gfc_simplify_min (gfc_expr *e) in gfc_simplify_min()
5020 gfc_expr *
5021 gfc_simplify_max (gfc_expr *e) in gfc_simplify_max()
5028 static gfc_expr *
5029 gfc_min (gfc_expr *op1, gfc_expr *op2) in gfc_min()
5038 gfc_expr *
5039 gfc_simplify_minval (gfc_expr *array, gfc_expr* dim, gfc_expr *mask) in gfc_simplify_minval()
5046 static gfc_expr *
5047 gfc_max (gfc_expr *op1, gfc_expr *op2) in gfc_max()
5057 gfc_expr *
5058 gfc_simplify_maxval (gfc_expr *array, gfc_expr* dim, gfc_expr *mask) in gfc_simplify_maxval()
5068 static gfc_expr *
5069 simplify_minmaxloc_to_scalar (gfc_expr *result, gfc_expr *array, gfc_expr *mask, in simplify_minmaxloc_to_scalar()
5070 gfc_expr *extremum, int sign, bool back_val) in simplify_minmaxloc_to_scalar()
5072 gfc_expr *a, *m; in simplify_minmaxloc_to_scalar()
5115 static gfc_expr *
5116 simplify_minmaxloc_nodim (gfc_expr *result, gfc_expr *extremum, in simplify_minmaxloc_nodim()
5117 gfc_expr *array, gfc_expr *mask, int sign, in simplify_minmaxloc_nodim()
5125 gfc_expr *a, *m; in simplify_minmaxloc_nodim()
5200 gfc_expr *r_expr; in simplify_minmaxloc_nodim()
5211 static gfc_expr *
5214 gfc_expr *result; in new_array()
5234 static gfc_expr *
5235 simplify_minmaxloc_to_array (gfc_expr *result, gfc_expr *array, in simplify_minmaxloc_to_array()
5236 gfc_expr *dim, gfc_expr *mask, in simplify_minmaxloc_to_array()
5237 gfc_expr *extremum, int sign, bool back_val) in simplify_minmaxloc_to_array()
5241 gfc_expr **arrayvec, **resultvec, **base, **src, **dest; in simplify_minmaxloc_to_array()
5260 arrayvec = XCNEWVEC (gfc_expr*, arraysize); in simplify_minmaxloc_to_array()
5286 resultvec = XCNEWVEC (gfc_expr*, resultsize); in simplify_minmaxloc_to_array()
5321 gfc_expr *ex; in simplify_minmaxloc_to_array()
5377 static gfc_expr *
5378 gfc_simplify_minmaxloc (gfc_expr *array, gfc_expr *dim, gfc_expr *mask, in gfc_simplify_minmaxloc()
5379 gfc_expr *kind, gfc_expr *back, int sign) in gfc_simplify_minmaxloc()
5381 gfc_expr *result; in gfc_simplify_minmaxloc()
5382 gfc_expr *extremum; in gfc_simplify_minmaxloc()
5443 gfc_expr *
5444 gfc_simplify_minloc (gfc_expr *array, gfc_expr *dim, gfc_expr *mask, gfc_expr *kind, in gfc_simplify_minloc()
5445 gfc_expr *back) in gfc_simplify_minloc()
5450 gfc_expr *
5451 gfc_simplify_maxloc (gfc_expr *array, gfc_expr *dim, gfc_expr *mask, gfc_expr *kind, in gfc_simplify_maxloc()
5452 gfc_expr *back) in gfc_simplify_maxloc()
5460 static gfc_expr *
5461 simplify_findloc_to_scalar (gfc_expr *result, gfc_expr *array, gfc_expr *value, in simplify_findloc_to_scalar()
5462 gfc_expr *mask, int back_val) in simplify_findloc_to_scalar()
5464 gfc_expr *a, *m; in simplify_findloc_to_scalar()
5512 static gfc_expr *
5513 simplify_findloc_nodim (gfc_expr *result, gfc_expr *value, gfc_expr *array, in simplify_findloc_nodim()
5514 gfc_expr *mask, bool back_val) in simplify_findloc_nodim()
5521 gfc_expr *a, *m; in simplify_findloc_nodim()
5597 gfc_expr *r_expr; in simplify_findloc_nodim()
5609 static gfc_expr *
5610 simplify_findloc_to_array (gfc_expr *result, gfc_expr *array, gfc_expr *value, in simplify_findloc_to_array()
5611 gfc_expr *dim, gfc_expr *mask, bool back_val) in simplify_findloc_to_array()
5615 gfc_expr **arrayvec, **resultvec, **base, **src, **dest; in simplify_findloc_to_array()
5634 arrayvec = XCNEWVEC (gfc_expr*, arraysize); in simplify_findloc_to_array()
5660 resultvec = XCNEWVEC (gfc_expr*, resultsize); in simplify_findloc_to_array()
5752 gfc_expr *
5753 gfc_simplify_findloc (gfc_expr *array, gfc_expr *value, gfc_expr *dim, in gfc_simplify_findloc()
5754 gfc_expr *mask, gfc_expr *kind, gfc_expr *back) in gfc_simplify_findloc()
5756 gfc_expr *result; in gfc_simplify_findloc()
5810 gfc_expr *
5811 gfc_simplify_maxexponent (gfc_expr *x) in gfc_simplify_maxexponent()
5819 gfc_expr *
5820 gfc_simplify_minexponent (gfc_expr *x) in gfc_simplify_minexponent()
5828 gfc_expr *
5829 gfc_simplify_mod (gfc_expr *a, gfc_expr *p) in gfc_simplify_mod()
5831 gfc_expr *result; in gfc_simplify_mod()
5880 gfc_expr *
5881 gfc_simplify_modulo (gfc_expr *a, gfc_expr *p) in gfc_simplify_modulo()
5883 gfc_expr *result; in gfc_simplify_modulo()
5941 gfc_expr *
5942 gfc_simplify_nearest (gfc_expr *x, gfc_expr *s) in gfc_simplify_nearest()
5944 gfc_expr *result; in gfc_simplify_nearest()
5991 static gfc_expr *
5992 simplify_nint (const char *name, gfc_expr *e, gfc_expr *k) in simplify_nint()
5994 gfc_expr *itrunc, *result; in simplify_nint()
6016 gfc_expr *
6017 gfc_simplify_new_line (gfc_expr *e) in gfc_simplify_new_line()
6019 gfc_expr *result; in gfc_simplify_new_line()
6028 gfc_expr *
6029 gfc_simplify_nint (gfc_expr *e, gfc_expr *k) in gfc_simplify_nint()
6035 gfc_expr *
6036 gfc_simplify_idnint (gfc_expr *e) in gfc_simplify_idnint()
6043 static gfc_expr *
6044 norm2_add_squared (gfc_expr *result, gfc_expr *e) in norm2_add_squared()
6100 static gfc_expr *
6101 norm2_do_sqrt (gfc_expr *result, gfc_expr *e) in norm2_do_sqrt()
6125 gfc_expr *
6126 gfc_simplify_norm2 (gfc_expr *e, gfc_expr *dim) in gfc_simplify_norm2()
6128 gfc_expr *result; in gfc_simplify_norm2()
6169 gfc_expr *
6170 gfc_simplify_not (gfc_expr *e) in gfc_simplify_not()
6172 gfc_expr *result; in gfc_simplify_not()
6184 gfc_expr *
6185 gfc_simplify_null (gfc_expr *mold) in gfc_simplify_null()
6187 gfc_expr *result; in gfc_simplify_null()
6201 gfc_expr *
6202 gfc_simplify_num_images (gfc_expr *distance ATTRIBUTE_UNUSED, gfc_expr *failed) in gfc_simplify_num_images()
6204 gfc_expr *result; in gfc_simplify_num_images()
6231 gfc_expr *
6232 gfc_simplify_or (gfc_expr *x, gfc_expr *y) in gfc_simplify_or()
6234 gfc_expr *result; in gfc_simplify_or()
6258 gfc_expr *
6259 gfc_simplify_pack (gfc_expr *array, gfc_expr *mask, gfc_expr *vector) in gfc_simplify_pack()
6261 gfc_expr *result; in gfc_simplify_pack()
6332 static gfc_expr *
6333 do_xor (gfc_expr *result, gfc_expr *e) in do_xor()
6344 gfc_expr *
6345 gfc_simplify_is_contiguous (gfc_expr *array) in gfc_simplify_is_contiguous()
6357 gfc_expr *
6358 gfc_simplify_parity (gfc_expr *e, gfc_expr *dim) in gfc_simplify_parity()
6364 gfc_expr *
6365 gfc_simplify_popcnt (gfc_expr *e) in gfc_simplify_popcnt()
6385 gfc_expr *
6386 gfc_simplify_poppar (gfc_expr *e) in gfc_simplify_poppar()
6388 gfc_expr *popcnt; in gfc_simplify_poppar()
6404 gfc_expr *
6405 gfc_simplify_precision (gfc_expr *e) in gfc_simplify_precision()
6413 gfc_expr *
6414 gfc_simplify_product (gfc_expr *array, gfc_expr *dim, gfc_expr *mask) in gfc_simplify_product()
6420 gfc_expr *
6421 gfc_simplify_radix (gfc_expr *e) in gfc_simplify_radix()
6444 gfc_expr *
6445 gfc_simplify_range (gfc_expr *e) in gfc_simplify_range()
6469 gfc_expr *
6470 gfc_simplify_rank (gfc_expr *e) in gfc_simplify_rank()
6480 gfc_expr *
6481 gfc_simplify_real (gfc_expr *e, gfc_expr *k) in gfc_simplify_real()
6483 gfc_expr *result = NULL; in gfc_simplify_real()
6530 gfc_expr *
6531 gfc_simplify_realpart (gfc_expr *e) in gfc_simplify_realpart()
6533 gfc_expr *result; in gfc_simplify_realpart()
6544 gfc_expr *
6545 gfc_simplify_repeat (gfc_expr *e, gfc_expr *n) in gfc_simplify_repeat()
6547 gfc_expr *result; in gfc_simplify_repeat()
6669 gfc_expr *
6670 gfc_simplify_reshape (gfc_expr *source, gfc_expr *shape_exp, in gfc_simplify_reshape()
6671 gfc_expr *pad, gfc_expr *order_exp) in gfc_simplify_reshape()
6678 gfc_expr *e, *result; in gfc_simplify_reshape()
6863 gfc_expr *
6864 gfc_simplify_rrspacing (gfc_expr *x) in gfc_simplify_rrspacing()
6866 gfc_expr *result; in gfc_simplify_rrspacing()
6910 gfc_expr *
6911 gfc_simplify_scale (gfc_expr *x, gfc_expr *i) in gfc_simplify_scale()
6915 gfc_expr *result; in gfc_simplify_scale()
7014 gfc_expr *
7015 gfc_simplify_scan (gfc_expr *e, gfc_expr *c, gfc_expr *b, gfc_expr *kind) in gfc_simplify_scan()
7017 gfc_expr *result; in gfc_simplify_scan()
7070 gfc_expr *
7071 gfc_simplify_selected_char_kind (gfc_expr *e) in gfc_simplify_selected_char_kind()
7090 gfc_expr *
7091 gfc_simplify_selected_int_kind (gfc_expr *e) in gfc_simplify_selected_int_kind()
7112 gfc_expr *
7113 gfc_simplify_selected_real_kind (gfc_expr *p, gfc_expr *q, gfc_expr *rdx) in gfc_simplify_selected_real_kind()
7194 gfc_expr *
7195 gfc_simplify_set_exponent (gfc_expr *x, gfc_expr *i) in gfc_simplify_set_exponent()
7197 gfc_expr *result; in gfc_simplify_set_exponent()
7249 gfc_expr *
7250 gfc_simplify_shape (gfc_expr *source, gfc_expr *kind) in gfc_simplify_shape()
7253 gfc_expr *result, *e, *f; in gfc_simplify_shape()
7327 static gfc_expr *
7328 simplify_size (gfc_expr *array, gfc_expr *dim, int k) in simplify_size()
7331 gfc_expr *return_value; in simplify_size()
7340 gfc_expr* replacement; in simplify_size()
7341 gfc_expr* simplified; in simplify_size()
7379 gfc_expr *kind = gfc_get_int_expr (gfc_default_integer_kind, NULL, k); in simplify_size()
7418 gfc_expr *
7419 gfc_simplify_size (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) in gfc_simplify_size()
7421 gfc_expr *result; in gfc_simplify_size()
7438 gfc_expr *
7439 gfc_simplify_sizeof (gfc_expr *x) in gfc_simplify_sizeof()
7441 gfc_expr *result = NULL; in gfc_simplify_sizeof()
7468 gfc_expr *
7469 gfc_simplify_storage_size (gfc_expr *x, in gfc_simplify_storage_size()
7470 gfc_expr *kind) in gfc_simplify_storage_size()
7472 gfc_expr *result = NULL; in gfc_simplify_storage_size()
7498 gfc_expr *
7499 gfc_simplify_sign (gfc_expr *x, gfc_expr *y) in gfc_simplify_sign()
7501 gfc_expr *result; in gfc_simplify_sign()
7533 gfc_expr *
7534 gfc_simplify_sin (gfc_expr *x) in gfc_simplify_sin()
7536 gfc_expr *result; in gfc_simplify_sin()
7562 gfc_expr *
7563 gfc_simplify_sinh (gfc_expr *x) in gfc_simplify_sinh()
7565 gfc_expr *result; in gfc_simplify_sinh()
7593 gfc_expr *
7594 gfc_simplify_sngl (gfc_expr *a) in gfc_simplify_sngl()
7596 gfc_expr *result; in gfc_simplify_sngl()
7617 gfc_expr *
7618 gfc_simplify_spacing (gfc_expr *x) in gfc_simplify_spacing()
7620 gfc_expr *result; in gfc_simplify_spacing()
7667 gfc_expr *
7668 gfc_simplify_spread (gfc_expr *source, gfc_expr *dim_expr, gfc_expr *ncopies_expr) in gfc_simplify_spread()
7670 gfc_expr *result = NULL; in gfc_simplify_spread()
7781 gfc_expr *
7782 gfc_simplify_sqrt (gfc_expr *e) in gfc_simplify_sqrt()
7784 gfc_expr *result = NULL; in gfc_simplify_sqrt()
7817 gfc_expr *
7818 gfc_simplify_sum (gfc_expr *array, gfc_expr *dim, gfc_expr *mask) in gfc_simplify_sum()
7826 gfc_expr *
7827 gfc_simplify_cotan (gfc_expr *x) in gfc_simplify_cotan()
7829 gfc_expr *result; in gfc_simplify_cotan()
7861 gfc_expr *
7862 gfc_simplify_tan (gfc_expr *x) in gfc_simplify_tan()
7864 gfc_expr *result; in gfc_simplify_tan()
7889 gfc_expr *
7890 gfc_simplify_tanh (gfc_expr *x) in gfc_simplify_tanh()
7892 gfc_expr *result; in gfc_simplify_tanh()
7917 gfc_expr *
7918 gfc_simplify_tiny (gfc_expr *e) in gfc_simplify_tiny()
7920 gfc_expr *result; in gfc_simplify_tiny()
7932 gfc_expr *
7933 gfc_simplify_trailz (gfc_expr *e) in gfc_simplify_trailz()
7950 gfc_expr *
7951 gfc_simplify_transfer (gfc_expr *source, gfc_expr *mold, gfc_expr *size) in gfc_simplify_transfer()
7953 gfc_expr *result; in gfc_simplify_transfer()
7954 gfc_expr *mold_element; in gfc_simplify_transfer()
8031 gfc_expr *
8032 gfc_simplify_transpose (gfc_expr *matrix) in gfc_simplify_transpose()
8035 gfc_expr *result; in gfc_simplify_transpose()
8062 gfc_expr *e = gfc_constructor_lookup_expr (matrix->value.constructor, in gfc_simplify_transpose()
8073 gfc_expr *
8074 gfc_simplify_trim (gfc_expr *e) in gfc_simplify_trim()
8076 gfc_expr *result; in gfc_simplify_trim()
8101 gfc_expr *
8102 gfc_simplify_image_index (gfc_expr *coarray, gfc_expr *sub) in gfc_simplify_image_index()
8104 gfc_expr *result; in gfc_simplify_image_index()
8131 gfc_expr *ca_bound; in gfc_simplify_image_index()
8211 gfc_expr *
8212 gfc_simplify_image_status (gfc_expr *image, gfc_expr *team ATTRIBUTE_UNUSED) in gfc_simplify_image_status()
8228 gfc_expr *result; in gfc_simplify_image_status()
8242 gfc_expr *
8243 gfc_simplify_this_image (gfc_expr *coarray, gfc_expr *dim, in gfc_simplify_this_image()
8244 gfc_expr *distance ATTRIBUTE_UNUSED) in gfc_simplify_this_image()
8253 gfc_expr *result; in gfc_simplify_this_image()
8266 gfc_expr *
8267 gfc_simplify_ubound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) in gfc_simplify_ubound()
8272 gfc_expr *
8273 gfc_simplify_ucobound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) in gfc_simplify_ucobound()
8279 gfc_expr *
8280 gfc_simplify_unpack (gfc_expr *vector, gfc_expr *mask, gfc_expr *field) in gfc_simplify_unpack()
8282 gfc_expr *result, *e; in gfc_simplify_unpack()
8338 gfc_expr *
8339 gfc_simplify_verify (gfc_expr *s, gfc_expr *set, gfc_expr *b, gfc_expr *kind) in gfc_simplify_verify()
8341 gfc_expr *result; in gfc_simplify_verify()
8409 gfc_expr *
8410 gfc_simplify_xor (gfc_expr *x, gfc_expr *y) in gfc_simplify_xor()
8412 gfc_expr *result; in gfc_simplify_xor()
8445 gfc_expr *
8446 gfc_convert_constant (gfc_expr *e, bt type, int kind) in gfc_convert_constant()
8448 gfc_expr *result, *(*f) (gfc_expr *, int); in gfc_convert_constant()
8604 gfc_expr *tmp; in gfc_convert_constant()
8644 gfc_expr *
8645 gfc_convert_char_constant (gfc_expr *e, bt type ATTRIBUTE_UNUSED, int kind) in gfc_convert_char_constant()
8647 gfc_expr *result; in gfc_convert_char_constant()
8694 gfc_expr *tmp = gfc_convert_char_constant (c->expr, type, kind); in gfc_convert_char_constant()
8718 gfc_expr *
8722 gfc_expr *result; in gfc_simplify_compiler_options()
8732 gfc_expr *
8747 gfc_expr *
8748 simplify_ieee_selected_real_kind (gfc_expr *expr) in simplify_ieee_selected_real_kind()
8751 gfc_expr *p = NULL, *q = NULL, *rdx = NULL; in simplify_ieee_selected_real_kind()
8768 gfc_expr *
8769 simplify_ieee_support (gfc_expr *expr) in simplify_ieee_support()
8797 gfc_expr *
8798 gfc_simplify_ieee_functions (gfc_expr *expr) in gfc_simplify_ieee_functions()