Home
last modified time | relevance | path

Searched refs:gfc_extract_int (Results 1 – 23 of 23) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dcheck.cc657 if (gfc_extract_int (k, &kind) in kind_check()
762 gfc_extract_int (expr, &i); in nonnegative_check()
783 gfc_extract_int (expr, &i); in positive_check()
808 gfc_extract_int (expr2, &i2); in less_than_bitsize1()
863 gfc_extract_int (expr, &val); in less_than_bitsizekind()
887 gfc_extract_int (expr2, &i2); in less_than_bitsize2()
888 gfc_extract_int (expr3, &i3); in less_than_bitsize2()
1694 if (gfc_extract_int (kind, &k, 1)) in gfc_check_failed_or_stopped_images()
1868 gfc_extract_int (n, &i); in gfc_check_besn()
2070 gfc_extract_int (kind, &k); in gfc_check_cmplx()
[all …]
H A Dsimplify.cc134 if (gfc_extract_int (k, &kind) in get_kind()
622 gfc_extract_int (dim, &dim_index); in simplify_transformation_to_array()
1648 if (gfc_extract_int (bit, &b) || b < 0) in gfc_simplify_btest()
2436 gfc_extract_int (shiftarg, &shift); in simplify_dshift()
3006 gfc_extract_int (kind, &actual_kind); in gfc_simplify_failed_or_stopped_images()
3361 gfc_extract_int (y, &pos); in gfc_simplify_ibclr()
3392 gfc_extract_int (y, &pos); in gfc_simplify_ibits()
3393 gfc_extract_int (z, &len); in gfc_simplify_ibits()
3446 gfc_extract_int (y, &pos); in gfc_simplify_ibset()
3772 gfc_extract_int (s, &shift); in simplify_shift()
[all …]
H A DChangeLog-20171079 * expr.c (gfc_extract_int): Use a KIND parameter if it
2082 * gfortran.h (gfc_extract_int): Change return type to bool. Add
2084 * decl.c (gfc_match_kind_spec): Adjust gfc_extract_int caller, pass
2104 * match.c (gfc_match_small_int): Adjust gfc_extract_int caller, pass
2114 * expr.c (gfc_extract_int): Change return type to bool, return true
2117 * arith.c (arith_power): Adjust gfc_extract_int caller.
2122 * openmp.c (gfc_match_omp_clauses): Adjust gfc_extract_int caller, pass
2126 * check.c (kind_check): Adjust gfc_extract_int caller.
2132 Adjust gfc_extract_int callers.
2137 match_string_constant): Adjust gfc_extract_int callers.
H A Dprimary.cc70 if (gfc_extract_int (sym->value, kind)) in match_kind_param()
319 if (gfc_extract_int (e, &num, 1)) in match_hollerith_constant()
1096 if (gfc_extract_int (sym->value, &kind, 1)) in match_string_constant()
H A Dopenmp.cc1679 if (gfc_extract_int (cexpr, &collapse, -1)) in gfc_match_omp_clauses()
1980 if (!gfc_extract_int (c->device, &device) && device != 1) in gfc_match_omp_clauses()
2567 if (gfc_extract_int (cexpr, &ordered, -1)) in gfc_match_omp_clauses()
6819 || gfc_extract_int (expr, &alignment) in resolve_omp_clauses()
H A Ddecl.cc3316 if (gfc_extract_int (e, &ts->kind, 1)) in gfc_match_kind_spec()
3455 fail = gfc_extract_int (e, kind, 1); in match_char_kind()
3955 gfc_extract_int (kind_expr, &kind_value); in gfc_get_pdt_instance()
4071 gfc_extract_int (e, &c2->ts.kind); in gfc_get_pdt_instance()
H A Diresolve.cc2881 gfc_extract_int (kind, &f->ts.kind); in gfc_resolve_failed_images()
2937 gfc_extract_int (kind, &f->ts.kind); in gfc_resolve_stopped_images()
H A Dgfortran.h3587 bool gfc_extract_int (gfc_expr *, int *, int = 0);
H A Darith.cc897 gfc_extract_int (op2, &power); in arith_power()
H A Dmatch.cc524 if (gfc_extract_int (expr, &i, 1)) in gfc_match_small_int()
H A Dexpr.cc646 gfc_extract_int (gfc_expr *expr, int *result, int report_error) in gfc_extract_int() function
H A DChangeLog-20092224 gfc_extract_int.
H A DChangeLog-20051466 * expr.c (gfc_extract_int): Add translation support for error
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dcheck.c657 if (gfc_extract_int (k, &kind) in kind_check()
762 gfc_extract_int (expr, &i); in nonnegative_check()
783 gfc_extract_int (expr, &i); in positive_check()
808 gfc_extract_int (expr2, &i2); in less_than_bitsize1()
863 gfc_extract_int (expr, &val); in less_than_bitsizekind()
887 gfc_extract_int (expr2, &i2); in less_than_bitsize2()
888 gfc_extract_int (expr3, &i3); in less_than_bitsize2()
1690 if (gfc_extract_int (kind, &k, 1)) in gfc_check_failed_or_stopped_images()
1864 gfc_extract_int (n, &i); in gfc_check_besn()
2066 gfc_extract_int (kind, &k); in gfc_check_cmplx()
[all …]
H A Dsimplify.c134 if (gfc_extract_int (k, &kind) in get_kind()
590 gfc_extract_int (dim, &dim_index); in simplify_transformation_to_array()
1616 if (gfc_extract_int (bit, &b) || b < 0) in gfc_simplify_btest()
2403 gfc_extract_int (shiftarg, &shift); in simplify_dshift()
2973 gfc_extract_int (kind, &actual_kind); in gfc_simplify_failed_or_stopped_images()
3328 gfc_extract_int (y, &pos); in gfc_simplify_ibclr()
3359 gfc_extract_int (y, &pos); in gfc_simplify_ibits()
3360 gfc_extract_int (z, &len); in gfc_simplify_ibits()
3413 gfc_extract_int (y, &pos); in gfc_simplify_ibset()
3739 gfc_extract_int (s, &shift); in simplify_shift()
[all …]
H A Dprimary.c70 if (gfc_extract_int (sym->value, kind)) in match_kind_param()
319 if (gfc_extract_int (e, &num, 1)) in match_hollerith_constant()
1117 if (gfc_extract_int (sym->value, &kind, 1)) in match_string_constant()
H A Dopenmp.c1065 if (gfc_extract_int (cexpr, &collapse, -1))
1550 if (gfc_extract_int (cexpr, &ordered, -1))
4495 || gfc_extract_int (expr, &alignment)
H A Ddecl.c3219 if (gfc_extract_int (e, &ts->kind, 1)) in gfc_match_kind_spec()
3359 fail = gfc_extract_int (e, kind, 1); in match_char_kind()
3850 gfc_extract_int (kind_expr, &kind_value); in gfc_get_pdt_instance()
3966 gfc_extract_int (e, &c2->ts.kind); in gfc_get_pdt_instance()
H A Diresolve.c2847 gfc_extract_int (kind, &f->ts.kind); in gfc_resolve_failed_images()
2903 gfc_extract_int (kind, &f->ts.kind); in gfc_resolve_stopped_images()
H A Dmatch.c524 if (gfc_extract_int (expr, &i, 1)) in gfc_match_small_int()
551 if (gfc_extract_int (*expr, &i, 1)) in gfc_match_small_int_expr()
H A Darith.c898 gfc_extract_int (op2, &power); in arith_power()
H A Dgfortran.h3296 bool gfc_extract_int (gfc_expr *, int *, int = 0);
H A Dexpr.c638 gfc_extract_int (gfc_expr *expr, int *result, int report_error) in gfc_extract_int() function