diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index e936a93..c22bfa9 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -177,7 +177,7 @@ kind_check (gfc_expr *k, int n, bt type) return false; } - if (gfc_extract_int (k, &kind) != NULL + if (gfc_extract_int (k, &kind) || gfc_validate_kind (type, kind, true) < 0) { gfc_error ("Invalid kind for %s at %L", gfc_basic_typename (type), |