Lines Matching refs:gfc_expr
419 gfc_arith_not (gfc_expr *op1, gfc_expr **resultp) in gfc_arith_not()
421 gfc_expr *result; in gfc_arith_not()
432 gfc_arith_and (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_and()
434 gfc_expr *result; in gfc_arith_and()
446 gfc_arith_or (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_or()
448 gfc_expr *result; in gfc_arith_or()
460 gfc_arith_eqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_eqv()
462 gfc_expr *result; in gfc_arith_eqv()
474 gfc_arith_neqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_neqv()
476 gfc_expr *result; in gfc_arith_neqv()
492 gfc_range_check (gfc_expr *e) in gfc_range_check()
548 check_result (arith rc, gfc_expr *x, gfc_expr *r, gfc_expr **rp) in check_result()
580 gfc_arith_identity (gfc_expr *op1, gfc_expr **resultp) in gfc_arith_identity()
588 gfc_arith_uminus (gfc_expr *op1, gfc_expr **resultp) in gfc_arith_uminus()
590 gfc_expr *result; in gfc_arith_uminus()
620 gfc_arith_plus (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_plus()
622 gfc_expr *result; in gfc_arith_plus()
654 gfc_arith_minus (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_minus()
656 gfc_expr *result; in gfc_arith_minus()
688 gfc_arith_times (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_times()
690 gfc_expr *result; in gfc_arith_times()
723 gfc_arith_divide (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_divide()
725 gfc_expr *result; in gfc_arith_divide()
810 arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in arith_power()
813 gfc_expr *result; in arith_power()
992 gfc_arith_concat (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_concat()
994 gfc_expr *result; in gfc_arith_concat()
1029 compare_real (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in compare_real()
1061 gfc_compare_expr (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_compare_expr()
1096 compare_complex (gfc_expr *op1, gfc_expr *op2) in compare_complex()
1107 gfc_compare_string (gfc_expr *a, gfc_expr *b) in gfc_compare_string()
1134 gfc_compare_with_Cstring (gfc_expr *a, const char *b, bool case_sensitive) in gfc_compare_with_Cstring()
1169 gfc_arith_eq (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_eq()
1171 gfc_expr *result; in gfc_arith_eq()
1185 gfc_arith_ne (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_ne()
1187 gfc_expr *result; in gfc_arith_ne()
1201 gfc_arith_gt (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_gt()
1203 gfc_expr *result; in gfc_arith_gt()
1215 gfc_arith_ge (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_ge()
1217 gfc_expr *result; in gfc_arith_ge()
1229 gfc_arith_lt (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_lt()
1231 gfc_expr *result; in gfc_arith_lt()
1243 gfc_arith_le (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) in gfc_arith_le()
1245 gfc_expr *result; in gfc_arith_le()
1257 reduce_unary (arith (*eval) (gfc_expr *, gfc_expr **), gfc_expr *op, in reduce_unary() argument
1258 gfc_expr **result) in reduce_unary()
1262 gfc_expr *r; in reduce_unary()
1298 reduce_binary_ac (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **), in reduce_binary_ac() argument
1299 gfc_expr *op1, gfc_expr *op2, gfc_expr **result) in reduce_binary_ac()
1303 gfc_expr *r; in reduce_binary_ac()
1338 reduce_binary_ca (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **), in reduce_binary_ca() argument
1339 gfc_expr *op1, gfc_expr *op2, gfc_expr **result) in reduce_binary_ca()
1343 gfc_expr *r; in reduce_binary_ca()
1378 static arith reduce_binary (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
1379 gfc_expr *op1, gfc_expr *op2, gfc_expr **result);
1383 reduce_binary_aa (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **), in reduce_binary_aa() argument
1384 gfc_expr *op1, gfc_expr *op2, gfc_expr **result) in reduce_binary_aa()
1388 gfc_expr *r; in reduce_binary_aa()
1428 reduce_binary (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **), in reduce_binary() argument
1429 gfc_expr *op1, gfc_expr *op2, gfc_expr **result) in reduce_binary()
1446 arith (*f2)(gfc_expr *, gfc_expr **);
1447 arith (*f3)(gfc_expr *, gfc_expr *, gfc_expr **);
1461 static gfc_expr *
1463 eval_f eval, gfc_expr *op1, gfc_expr *op2) in eval_intrinsic()
1465 gfc_expr temp, *result; in eval_intrinsic()
1649 static gfc_expr *
1650 eval_type_intrinsic0 (gfc_intrinsic_op iop, gfc_expr *op) in eval_type_intrinsic0()
1684 gfc_zero_size_array (gfc_expr *e) in gfc_zero_size_array()
1697 static gfc_expr *
1698 reduce_binary0 (gfc_expr *op1, gfc_expr *op2) in reduce_binary0()
1716 static gfc_expr *
1718 arith (*eval) (gfc_expr *, gfc_expr **), in eval_intrinsic_f2() argument
1719 gfc_expr *op1, gfc_expr *op2) in eval_intrinsic_f2()
1721 gfc_expr *result; in eval_intrinsic_f2()
1741 static gfc_expr *
1743 arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **), in eval_intrinsic_f3() argument
1744 gfc_expr *op1, gfc_expr *op2) in eval_intrinsic_f3()
1746 gfc_expr *result; in eval_intrinsic_f3()
1758 gfc_expr *
1759 gfc_parentheses (gfc_expr *op) in gfc_parentheses()
1768 gfc_expr *
1769 gfc_uplus (gfc_expr *op) in gfc_uplus()
1775 gfc_expr *
1776 gfc_uminus (gfc_expr *op) in gfc_uminus()
1782 gfc_expr *
1783 gfc_add (gfc_expr *op1, gfc_expr *op2) in gfc_add()
1789 gfc_expr *
1790 gfc_subtract (gfc_expr *op1, gfc_expr *op2) in gfc_subtract()
1796 gfc_expr *
1797 gfc_multiply (gfc_expr *op1, gfc_expr *op2) in gfc_multiply()
1803 gfc_expr *
1804 gfc_divide (gfc_expr *op1, gfc_expr *op2) in gfc_divide()
1810 gfc_expr *
1811 gfc_power (gfc_expr *op1, gfc_expr *op2) in gfc_power()
1817 gfc_expr *
1818 gfc_concat (gfc_expr *op1, gfc_expr *op2) in gfc_concat()
1824 gfc_expr *
1825 gfc_and (gfc_expr *op1, gfc_expr *op2) in gfc_and()
1831 gfc_expr *
1832 gfc_or (gfc_expr *op1, gfc_expr *op2) in gfc_or()
1838 gfc_expr *
1839 gfc_not (gfc_expr *op1) in gfc_not()
1845 gfc_expr *
1846 gfc_eqv (gfc_expr *op1, gfc_expr *op2) in gfc_eqv()
1852 gfc_expr *
1853 gfc_neqv (gfc_expr *op1, gfc_expr *op2) in gfc_neqv()
1859 gfc_expr *
1860 gfc_eq (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_eq()
1866 gfc_expr *
1867 gfc_ne (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_ne()
1873 gfc_expr *
1874 gfc_gt (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_gt()
1880 gfc_expr *
1881 gfc_ge (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_ge()
1887 gfc_expr *
1888 gfc_lt (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_lt()
1894 gfc_expr *
1895 gfc_le (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op) in gfc_le()
1991 gfc_expr *
1992 gfc_int2int (gfc_expr *src, int kind) in gfc_int2int()
1994 gfc_expr *result; in gfc_int2int()
2036 gfc_expr *
2037 gfc_int2real (gfc_expr *src, int kind) in gfc_int2real()
2039 gfc_expr *result; in gfc_int2real()
2067 gfc_expr *
2068 gfc_int2complex (gfc_expr *src, int kind) in gfc_int2complex()
2070 gfc_expr *result; in gfc_int2complex()
2100 gfc_expr *
2101 gfc_real2int (gfc_expr *src, int kind) in gfc_real2int()
2103 gfc_expr *result; in gfc_real2int()
2146 gfc_expr *
2147 gfc_real2real (gfc_expr *src, int kind) in gfc_real2real()
2149 gfc_expr *result; in gfc_real2real()
2205 gfc_expr *
2206 gfc_real2complex (gfc_expr *src, int kind) in gfc_real2complex()
2208 gfc_expr *result; in gfc_real2complex()
2257 gfc_expr *
2258 gfc_complex2int (gfc_expr *src, int kind) in gfc_complex2int()
2260 gfc_expr *result; in gfc_complex2int()
2319 gfc_expr *
2320 gfc_complex2real (gfc_expr *src, int kind) in gfc_complex2real()
2322 gfc_expr *result; in gfc_complex2real()
2386 gfc_expr *
2387 gfc_complex2complex (gfc_expr *src, int kind) in gfc_complex2complex()
2389 gfc_expr *result; in gfc_complex2complex()
2453 gfc_expr *
2454 gfc_log2log (gfc_expr *src, int kind) in gfc_log2log()
2456 gfc_expr *result; in gfc_log2log()
2467 gfc_expr *
2468 gfc_log2int (gfc_expr *src, int kind) in gfc_log2int()
2470 gfc_expr *result; in gfc_log2int()
2481 gfc_expr *
2482 gfc_int2log (gfc_expr *src, int kind) in gfc_int2log()
2484 gfc_expr *result; in gfc_int2log()
2495 gfc_expr *
2496 gfc_character2character (gfc_expr *src, int kind) in gfc_character2character()
2498 gfc_expr *result; in gfc_character2character()
2510 hollerith2representation (gfc_expr *result, gfc_expr *src) in hollerith2representation()
2541 character2representation (gfc_expr *result, gfc_expr *src) in character2representation()
2567 gfc_expr *
2568 gfc_hollerith2int (gfc_expr *src, int kind) in gfc_hollerith2int()
2570 gfc_expr *result; in gfc_hollerith2int()
2582 gfc_expr *
2583 gfc_character2int (gfc_expr *src, int kind) in gfc_character2int()
2585 gfc_expr *result; in gfc_character2int()
2596 gfc_expr *
2597 gfc_hollerith2real (gfc_expr *src, int kind) in gfc_hollerith2real()
2599 gfc_expr *result; in gfc_hollerith2real()
2611 gfc_expr *
2612 gfc_character2real (gfc_expr *src, int kind) in gfc_character2real()
2614 gfc_expr *result; in gfc_character2real()
2627 gfc_expr *
2628 gfc_hollerith2complex (gfc_expr *src, int kind) in gfc_hollerith2complex()
2630 gfc_expr *result; in gfc_hollerith2complex()
2642 gfc_expr *
2643 gfc_character2complex (gfc_expr *src, int kind) in gfc_character2complex()
2645 gfc_expr *result; in gfc_character2complex()
2658 gfc_expr *
2659 gfc_hollerith2character (gfc_expr *src, int kind) in gfc_hollerith2character()
2661 gfc_expr *result; in gfc_hollerith2character()
2678 gfc_expr *
2679 gfc_hollerith2logical (gfc_expr *src, int kind) in gfc_hollerith2logical()
2681 gfc_expr *result; in gfc_hollerith2logical()
2693 gfc_expr *
2694 gfc_character2logical (gfc_expr *src, int kind) in gfc_character2logical()
2696 gfc_expr *result; in gfc_character2logical()