diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-05-05 20:12:25 -0700 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-05-06 07:23:11 -0700 |
| commit | 96d699196285858df5d1484b4443cf849908662f (patch) | |
| tree | 2f1ef2452caa1bf56cd682f3053efc4532531ec6 /gcc | |
| parent | b7fe38c14e5f1bc32950c7b2ffc8537c7c381af4 (diff) | |
| download | gcc-96d699196285858df5d1484b4443cf849908662f.zip gcc-96d699196285858df5d1484b4443cf849908662f.tar.gz gcc-96d699196285858df5d1484b4443cf849908662f.tar.bz2 | |
Fortran: Namelist read with invalid input accepted.
PR fortran/109662
libgfortran/ChangeLog:
* io/list_read.c: Add a check for a comma after a namelist
name in read input. Issue a runtime error message.
gcc/testsuite/ChangeLog:
* gfortran.dg/pr109662.f90: New test.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr109662.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr109662.f90 b/gcc/testsuite/gfortran.dg/pr109662.f90 new file mode 100644 index 0000000..988cfab --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr109662.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! { dg-options "-std=f2003" } +! PR109662 a comma 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 |