https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94769
Thomas Koenig <tkoenig at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |tkoenig at gcc dot gnu.org --- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- Steve, is this sort of what you had in mind? --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -3840,7 +3840,7 @@ if (condition) \ if (dt->asynchronous) { - int num; + int num = 42; /* Fix stupid gcc warning. */ static const char * asynchronous[] = { "YES", "NO", NULL }; /* Note: gfc_reduce_init_expr reports an error if not init-expr. */ @@ -3853,6 +3853,7 @@ if (condition) \ io_kind_name (k), warn, &dt->asynchronous->where, &num)) return false; + gcc_assert (num != 42); /* For "YES", mark related symbols as asynchronous. */ if (num == 0) {