https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109662

--- Comment #12 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
A additional adjustment to reject the semi-colon always.

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 78bfd9e8787..db3330060ce 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -3598,9 +3598,9 @@ find_nml_name:

   /* A trailing space is required, we allow a comma with std=gnu.  */
   c = next_char (dtp);
-  if (c == ',' && !(compile_options.allow_std & GFC_STD_GNU))
+  if ((c == ',' && !(compile_options.allow_std & GFC_STD_GNU)) || c == ';')
     generate_error (&dtp->common, LIBERROR_READ_VALUE,
-                   "Comma after namelist name not allowed");
+                   "Non blank after namelist name not allowed");

   if (!is_separator(c) && c != '!')
     {

Reply via email to