1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index ef1b88e..1ecea88 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -2975,9 +2975,8 @@ get_io_list:
   /* Optional leading comma (non-standard).  */
   if (!comma_flag
       && gfc_match_char (',') == MATCH_YES
-      && k == M_WRITE
-      && gfc_notify_std (GFC_STD_GNU, "Extension: Comma before output "
-			 "item list at %C is an extension") == FAILURE)
+      && gfc_notify_std (GFC_STD_GNU, "Extension: Comma before i/o "
+			 "item list at %C") == FAILURE)
     return MATCH_ERROR;
 
   io_code = NULL;