diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-05-07 18:54:55 -0700 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-05-07 19:02:42 -0700 |
| commit | d46b3db4bd016a3eccfb933c81c7a9d87c0ad403 (patch) | |
| tree | 44b616f7d43ad205ffc77b71d372281a0df66d34 | |
| parent | 70d038235cc91ef1ea4fce519e628cfb2d297bff (diff) | |
| download | gcc-d46b3db4bd016a3eccfb933c81c7a9d87c0ad403.zip gcc-d46b3db4bd016a3eccfb933c81c7a9d87c0ad403.tar.gz gcc-d46b3db4bd016a3eccfb933c81c7a9d87c0ad403.tar.bz2 | |
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.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr109662-a.f90 | 15 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 4 |
2 files changed, 17 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr109662-a.f90 b/gcc/testsuite/gfortran.dg/pr109662-a.f90 new file mode 100644 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 78bfd9e..db33300 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 != '!') { |