Home
last modified time | relevance | path

Searched refs:BT_COMPLEX (Results 1 – 25 of 92) sorted by relevance

1234

/netbsd/external/gpl3/gcc/dist/gcc/fortran/
H A Darith.c513 case BT_COMPLEX: in gfc_range_check()
605 case BT_COMPLEX: in gfc_arith_uminus()
638 case BT_COMPLEX: in gfc_arith_plus()
672 case BT_COMPLEX: in gfc_arith_minus()
706 case BT_COMPLEX: in gfc_arith_times()
776 case BT_COMPLEX: in gfc_arith_divide()
839 case BT_COMPLEX: in arith_power()
925 case BT_COMPLEX: in arith_power()
961 case BT_COMPLEX: in arith_power()
1175 result->value.logical = (op1->ts.type == BT_COMPLEX) in gfc_arith_eq()
[all …]
H A Dintrinsic.cc89 case BT_COMPLEX: in gfc_type_letter()
116 case BT_COMPLEX: in gfc_type_abi_kind()
1388 a, BT_COMPLEX, dz, REQUIRED); in add_functions()
1392 a, BT_COMPLEX, dd, REQUIRED); in add_functions()
1447 z, BT_COMPLEX, dz, REQUIRED); in add_functions()
1454 z, BT_COMPLEX, dd, REQUIRED); in add_functions()
1744 z, BT_COMPLEX, dz, REQUIRED); in add_functions()
1748 z, BT_COMPLEX, dd, REQUIRED); in add_functions()
1762 x, BT_COMPLEX, dz, REQUIRED); in add_functions()
3389 BT_COMPLEX, dz, GFC_STD_GNU, in add_functions()
[all …]
H A Dintrinsic.c89 case BT_COMPLEX: in gfc_type_letter()
1362 a, BT_COMPLEX, dz, REQUIRED); in add_functions()
1366 a, BT_COMPLEX, dd, REQUIRED); in add_functions()
1421 z, BT_COMPLEX, dz, REQUIRED); in add_functions()
1428 z, BT_COMPLEX, dd, REQUIRED); in add_functions()
1718 z, BT_COMPLEX, dz, REQUIRED); in add_functions()
1722 z, BT_COMPLEX, dd, REQUIRED); in add_functions()
1736 x, BT_COMPLEX, dz, REQUIRED); in add_functions()
1740 x, BT_COMPLEX, dd, REQUIRED); in add_functions()
3363 BT_COMPLEX, dz, GFC_STD_GNU, in add_functions()
[all …]
H A Darith.cc512 case BT_COMPLEX: in gfc_range_check()
604 case BT_COMPLEX: in gfc_arith_uminus()
637 case BT_COMPLEX: in gfc_arith_plus()
671 case BT_COMPLEX: in gfc_arith_minus()
705 case BT_COMPLEX: in gfc_arith_times()
775 case BT_COMPLEX: in gfc_arith_divide()
838 case BT_COMPLEX: in arith_power()
924 case BT_COMPLEX: in arith_power()
960 case BT_COMPLEX: in arith_power()
1174 result->value.logical = (op1->ts.type == BT_COMPLEX) in gfc_arith_eq()
[all …]
H A Dmisc.c76 case BT_COMPLEX: in gfc_basic_typename()
145 case BT_COMPLEX: in gfc_typename()
H A Dmisc.cc76 case BT_COMPLEX: in gfc_basic_typename()
146 case BT_COMPLEX: in gfc_typename()
H A Dlibgfortran.h184 { BT_UNKNOWN = 0, BT_INTEGER, BT_LOGICAL, BT_REAL, BT_COMPLEX, enumerator
H A Dsimplify.c316 case BT_COMPLEX: in init_result_expr()
390 case BT_COMPLEX: in compute_dot_product()
723 case BT_COMPLEX: in gfc_simplify_abs()
821 case BT_COMPLEX: in gfc_simplify_acos()
2511 case BT_COMPLEX: in gfc_simplify_eoshift()
4575 case BT_COMPLEX: in gfc_simplify_log()
8462 case BT_COMPLEX: in gfc_convert_constant()
8482 case BT_COMPLEX: in gfc_convert_constant()
8499 case BT_COMPLEX: in gfc_convert_constant()
8533 case BT_COMPLEX: in gfc_convert_constant()
[all …]
H A Dsimplify.cc348 case BT_COMPLEX: in init_result_expr()
422 case BT_COMPLEX: in compute_dot_product()
755 case BT_COMPLEX: in gfc_simplify_abs()
853 case BT_COMPLEX: in gfc_simplify_acos()
2544 case BT_COMPLEX: in gfc_simplify_eoshift()
4652 case BT_COMPLEX: in gfc_simplify_log()
8574 case BT_COMPLEX: in gfc_convert_constant()
8594 case BT_COMPLEX: in gfc_convert_constant()
8611 case BT_COMPLEX: in gfc_convert_constant()
8645 case BT_COMPLEX: in gfc_convert_constant()
[all …]
H A Dtarget-memory.c91 case BT_COMPLEX: in gfc_element_size()
324 case BT_COMPLEX: in gfc_target_encode_expr()
600 case BT_COMPLEX: in gfc_target_interpret_expr()
H A Dtarget-memory.cc91 case BT_COMPLEX: in gfc_element_size()
323 case BT_COMPLEX: in gfc_target_encode_expr()
600 case BT_COMPLEX: in gfc_target_interpret_expr()
H A Dcheck.c587 && e->ts.type != BT_COMPLEX && e->ts.type != BT_CHARACTER in intrinsic_type_check()
603 if (e->ts.type != BT_REAL && e->ts.type != BT_COMPLEX) in real_or_complex_check()
2064 if (!kind_check (kind, 2, BT_COMPLEX)) in gfc_check_cmplx()
2085 if (x->ts.type == BT_COMPLEX) in gfc_check_cmplx()
2094 if (y->ts.type == BT_COMPLEX) in gfc_check_cmplx()
2575 if (x->ts.type == BT_COMPLEX) in gfc_check_dcmplx()
2584 if (y->ts.type == BT_COMPLEX) in gfc_check_dcmplx()
2633 case BT_COMPLEX: in gfc_check_dot_product()
2870 case BT_COMPLEX: in gfc_check_eoshift()
2920 if (!type_check (a, 0, BT_COMPLEX)) in gfc_check_fn_c()
[all …]
H A Dcheck.cc587 && e->ts.type != BT_COMPLEX && e->ts.type != BT_CHARACTER in intrinsic_type_check()
603 if (e->ts.type != BT_REAL && e->ts.type != BT_COMPLEX) in real_or_complex_check()
2068 if (!kind_check (kind, 2, BT_COMPLEX)) in gfc_check_cmplx()
2089 if (x->ts.type == BT_COMPLEX) in gfc_check_cmplx()
2098 if (y->ts.type == BT_COMPLEX) in gfc_check_cmplx()
2579 if (x->ts.type == BT_COMPLEX) in gfc_check_dcmplx()
2588 if (y->ts.type == BT_COMPLEX) in gfc_check_dcmplx()
2637 case BT_COMPLEX: in gfc_check_dot_product()
2874 case BT_COMPLEX: in gfc_check_eoshift()
2924 if (!type_check (a, 0, BT_COMPLEX)) in gfc_check_fn_c()
[all …]
/netbsd/external/gpl3/gcc.old/dist/gcc/fortran/
H A Darith.c513 case BT_COMPLEX: in gfc_range_check()
605 case BT_COMPLEX: in gfc_arith_uminus()
638 case BT_COMPLEX: in gfc_arith_plus()
672 case BT_COMPLEX: in gfc_arith_minus()
706 case BT_COMPLEX: in gfc_arith_times()
776 case BT_COMPLEX: in gfc_arith_divide()
839 case BT_COMPLEX: in arith_power()
925 case BT_COMPLEX: in arith_power()
961 case BT_COMPLEX: in arith_power()
1175 result->value.logical = (op1->ts.type == BT_COMPLEX) in gfc_arith_eq()
[all …]
H A Dintrinsic.c89 case BT_COMPLEX: in gfc_type_letter()
1362 a, BT_COMPLEX, dz, REQUIRED); in add_functions()
1366 a, BT_COMPLEX, dd, REQUIRED); in add_functions()
1421 z, BT_COMPLEX, dz, REQUIRED); in add_functions()
1428 z, BT_COMPLEX, dd, REQUIRED); in add_functions()
1718 z, BT_COMPLEX, dz, REQUIRED); in add_functions()
1722 z, BT_COMPLEX, dd, REQUIRED); in add_functions()
1736 x, BT_COMPLEX, dz, REQUIRED); in add_functions()
1740 x, BT_COMPLEX, dd, REQUIRED); in add_functions()
3363 BT_COMPLEX, dz, GFC_STD_GNU, in add_functions()
[all …]
H A Dmisc.c76 case BT_COMPLEX: in gfc_basic_typename()
145 case BT_COMPLEX: in gfc_typename()
H A Dlibgfortran.h176 { BT_UNKNOWN = 0, BT_INTEGER, BT_LOGICAL, BT_REAL, BT_COMPLEX, enumerator
H A Dsimplify.c316 case BT_COMPLEX: in init_result_expr()
390 case BT_COMPLEX: in compute_dot_product()
723 case BT_COMPLEX: in gfc_simplify_abs()
821 case BT_COMPLEX: in gfc_simplify_acos()
2511 case BT_COMPLEX: in gfc_simplify_eoshift()
4575 case BT_COMPLEX: in gfc_simplify_log()
8462 case BT_COMPLEX: in gfc_convert_constant()
8482 case BT_COMPLEX: in gfc_convert_constant()
8499 case BT_COMPLEX: in gfc_convert_constant()
8533 case BT_COMPLEX: in gfc_convert_constant()
[all …]
H A Dtarget-memory.c91 case BT_COMPLEX: in gfc_element_size()
324 case BT_COMPLEX: in gfc_target_encode_expr()
600 case BT_COMPLEX: in gfc_target_interpret_expr()
H A Dcheck.c587 && e->ts.type != BT_COMPLEX && e->ts.type != BT_CHARACTER in intrinsic_type_check()
603 if (e->ts.type != BT_REAL && e->ts.type != BT_COMPLEX) in real_or_complex_check()
2064 if (!kind_check (kind, 2, BT_COMPLEX)) in gfc_check_cmplx()
2085 if (x->ts.type == BT_COMPLEX) in gfc_check_cmplx()
2094 if (y->ts.type == BT_COMPLEX) in gfc_check_cmplx()
2575 if (x->ts.type == BT_COMPLEX) in gfc_check_dcmplx()
2584 if (y->ts.type == BT_COMPLEX) in gfc_check_dcmplx()
2633 case BT_COMPLEX: in gfc_check_dot_product()
2870 case BT_COMPLEX: in gfc_check_eoshift()
2920 if (!type_check (a, 0, BT_COMPLEX)) in gfc_check_fn_c()
[all …]
/netbsd/external/gpl3/gcc/dist/libgfortran/io/
H A Dtransfer.c1142 else if (type == BT_COMPLEX) in unformatted_read()
1163 if ((type == BT_REAL || type == BT_COMPLEX) in unformatted_read()
1173 && (type == BT_REAL || type == BT_COMPLEX)) in unformatted_read()
1190 if (type == BT_COMPLEX && size == 32) in unformatted_read()
1260 || ((type == BT_REAL || type == BT_COMPLEX) in unformatted_write()
1288 if (type == BT_COMPLEX) in unformatted_write()
1321 && (type == BT_REAL || type == BT_COMPLEX)) in unformatted_write()
1339 && (type == BT_REAL || type == BT_COMPLEX)) in unformatted_write()
1395 case BT_COMPLEX: in type_name()
1549 if (type == BT_COMPLEX) in formatted_transfer_scalar_read()
[all …]
H A Dlist_read.c1593 dtp->u.p.saved_type = BT_COMPLEX; in read_complex()
2050 if ((type != BT_COMPLEX && dtp->u.p.saved_length != kind) in check_type()
2051 || (type == BT_COMPLEX && dtp->u.p.saved_length != kind*2)) in check_type()
2055 type == BT_COMPLEX ? dtp->u.p.saved_length / 2 in check_type()
2184 case BT_COMPLEX: in list_formatted_read_scalar()
2244 case BT_COMPLEX: in list_formatted_read_scalar()
2904 case BT_COMPLEX: in nml_read_obj()
2979 case BT_COMPLEX: in nml_read_obj()
3103 case BT_COMPLEX: in nml_read_obj()
/netbsd/external/gpl3/gcc.old/dist/libgfortran/io/
H A Dlist_read.c1594 dtp->u.p.saved_type = BT_COMPLEX; in read_complex()
2051 if ((type != BT_COMPLEX && dtp->u.p.saved_length != kind) in check_type()
2052 || (type == BT_COMPLEX && dtp->u.p.saved_length != kind*2)) in check_type()
2056 type == BT_COMPLEX ? dtp->u.p.saved_length / 2 in check_type()
2185 case BT_COMPLEX: in list_formatted_read_scalar()
2245 case BT_COMPLEX: in list_formatted_read_scalar()
2905 case BT_COMPLEX: in nml_read_obj()
2980 case BT_COMPLEX: in nml_read_obj()
3104 case BT_COMPLEX: in nml_read_obj()
/netbsd/external/gpl3/gcc/dist/libgfortran/
H A Dlibgfortran.h533 #define GFC_DTYPE_COMPLEX_4 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
535 #define GFC_DTYPE_COMPLEX_8 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
538 #define GFC_DTYPE_COMPLEX_10 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
542 #define GFC_DTYPE_COMPLEX_16 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
546 #define GFC_DTYPE_COMPLEX_17 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
/netbsd/external/gpl3/gcc.old/dist/libgfortran/
H A Dlibgfortran.h495 #define GFC_DTYPE_COMPLEX_4 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
497 #define GFC_DTYPE_COMPLEX_8 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
500 #define GFC_DTYPE_COMPLEX_10 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
504 #define GFC_DTYPE_COMPLEX_16 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \

1234