diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 9e5906a..acf16c5 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -117,7 +117,7 @@ kind_check (gfc_expr * k, int n, bt type) } if (gfc_extract_int (k, &kind) != NULL - || gfc_validate_kind (type, kind) == -1) + || gfc_validate_kind (type, kind, true) < 0) { gfc_error ("Invalid kind for %s at %L", gfc_basic_typename (type), &k->where); @@ -133,7 +133,6 @@ kind_check (gfc_expr * k, int n, bt type) static try double_check (gfc_expr * d, int n) { - if (type_check (d, n, BT_REAL) == FAILURE) return FAILURE; |