diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index a22acf0..b8ed5e9 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -2001,6 +2001,9 @@ gfc_check_system_clock (gfc_expr * count, gfc_expr * count_rate, try gfc_check_irand (gfc_expr * x) { + if (x == NULL) + return SUCCESS; + if (scalar_check (x, 0) == FAILURE) return FAILURE; @@ -2016,6 +2019,9 @@ gfc_check_irand (gfc_expr * x) try gfc_check_rand (gfc_expr * x) { + if (x == NULL) + return SUCCESS; + if (scalar_check (x, 0) == FAILURE) return FAILURE; |