diff options
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index e920a42..415a7c9 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -4264,7 +4264,7 @@ gfc_check_intrinsic_standard (const gfc_intrinsic_sym* isym, const char* symstd_msg; /* For -fall-intrinsics, just succeed. */ - if (gfc_option.flag_all_intrinsics) + if (flag_all_intrinsics) return true; /* Find the symbol's standard message for later usage. */ @@ -4623,8 +4623,7 @@ gfc_convert_type_warn (gfc_expr *expr, gfc_typespec *ts, int eflag, int wflag) } else if (wflag) { - if (gfc_option.flag_range_check - && expr->expr_type == EXPR_CONSTANT + if (flag_range_check && expr->expr_type == EXPR_CONSTANT && from_ts.type == ts->type) { /* Do nothing. Constants of the same type are range-checked |