diff options
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index e066666..981cf9e 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -3840,7 +3840,7 @@ if (condition) \ if (dt->asynchronous) { - int num; + int num = -1; static const char * asynchronous[] = { "YES", "NO", NULL }; /* Note: gfc_reduce_init_expr reports an error if not init-expr. */ @@ -3853,6 +3853,8 @@ if (condition) \ io_kind_name (k), warn, &dt->asynchronous->where, &num)) return false; + gcc_checking_assert (num != -1); + /* For "YES", mark related symbols as asynchronous. */ if (num == 0) { |