Fortran: Reject semicolon after namelist name.

	PR fortran/109662

libgfortran/ChangeLog:

	* io/list_read.c: Add check for a semicolon after a namelist
	name in read input. Issue a runtime error message.

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr109662-a.f90: New test.

diff --git a/gcc/testsuite/gfortran.dg/pr109662-a.f90 b/gcc/testsuite/gfortran.dg/pr109662-a.f90
new file mode 100644 (file)
index 0000000..0059df2
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr109662-a.f90
@@ -0,0 +1,15 @@
+! { dg-do run }
+! { dg-options "-std=f2003" }
+! PR109662-a semi-colon after namelist name accepted on input. 
+program testnmlread
+  implicit none
+  character(16) :: list = '&stuff; n = 759/'
+  character(100)::message
+  integer       :: n, ioresult
+  namelist/stuff/n
+  message = ""
+  ioresult = 0
+  n = 99
+  read(list,nml=stuff,iostat=ioresult)
+  if (ioresult == 0) STOP 13
+end program testnmlread

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 78bfd9e878753337c988bde3d632d298bba1ae01..db3330060ce1d22d9695bd1f61c82d622947b452 100644 (file)
--- 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 != '!')
     {