diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-26 06:07:52 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-26 06:07:52 +0000 |
| commit | f2d4ef3bdd2219d7e19030a5432942f45529bfc2 (patch) | |
| tree | 888872234485cb430569f6f616fdcf7a056f67a7 /gcc/fortran/options.c | |
| parent | d45005b7c92c981fc0b44eac0e1799203a685c6f (diff) | |
| download | ppe42-gcc-f2d4ef3bdd2219d7e19030a5432942f45529bfc2.tar.gz ppe42-gcc-f2d4ef3bdd2219d7e19030a5432942f45529bfc2.zip | |
* arith.c (gfc_validate_kind): Add may_fail argument; abort if
false and we don't validate the kind.
(gfc_check_integer_range, gfc_check_real_range): Update to match.
* check.c (kind_check): Likewise.
* decl.c (gfc_match_old_kind_spec, gfc_match_kind_spec): Likewise.
(match_char_spec, match_logical_spec): Likewise.
* gfortran.h (gfc_validate_kind): Likewise.
* options.c (gfc_handle_option): Likewise.
* primary.c (match_integer_constant, match_real_constant,
match_string_constant, match_logical_constant,
match_const_complex_part): Likewise.
* simplify.c (get_kind, gfc_simplify_bit_size, gfc_simplify_digits,
gfc_simplify_epsilon, gfc_simplify_huge, gfc_simplify_ibclr,
gfc_simplify_ibset, gfc_simplify_ishft, gfc_simplify_ishftc,
gfc_simplify_maxexponent, gfc_simplify_minexponent,
gfc_simplify_nearest, gfc_simplify_not, gfc_simplify_precision,
gfc_simplify_radix, gfc_simplify_range, gfc_simplify_rrspacing,
gfc_simplify_scale, gfc_simplify_spacing, gfc_simplify_tan,
gfc_simplify_tiny): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_aint, gfc_conv_intrinsic_mod,
gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_minmaxval,
prepare_arg_info): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86608 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 8432f5e6baa..83ca9c75548 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -282,7 +282,7 @@ gfc_handle_option (size_t scode, const char *arg, int value) break; case OPT_qkind_: - if (gfc_validate_kind (BT_REAL, value) < 0) + if (gfc_validate_kind (BT_REAL, value, true) < 0) gfc_fatal_error ("Argument to -fqkind isn't a valid real kind"); gfc_option.q_kind = value; break; |
