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)
{
