diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-20 02:07:38 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-20 02:07:38 +0000 |
| commit | 2e8b96eb99aa7ebc849b0848d9d8d95eea19a37d (patch) | |
| tree | 2e0d9e028791c48d04aabb624934cc6d7018c52a /gcc/testsuite/gfortran.dg | |
| parent | 05b3bd40e4d6b56e724b3e8371190456bb2c5013 (diff) | |
| download | gcc-2e8b96eb99aa7ebc849b0848d9d8d95eea19a37d.tar.gz | |
2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35627
* gfortran.dg/namelist_46.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133361 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_46.f90 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_46.f90 b/gcc/testsuite/gfortran.dg/namelist_46.f90 new file mode 100644 index 00000000000..0f048cf2100 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_46.f90 @@ -0,0 +1,23 @@ +! { dg-do run } +! PR35627 Namelist read problem with short logical followed by read real +program test + implicit none + LOGICAL :: nlco(200) ! (1:nbeam) + REAL(kind=8):: xlbtna(200) ! (1:nbeam) + NAMELIST/nbdrive_naml/ nlco, xlbtna + INTEGER :: nbshapa(200) ! (1:nbeam) + NAMELIST/nbdrive_naml/ nbshapa + nlco = .false. + xlbtna = 0.0_8 + nbshapa = 0 + open(10, file='t.nml') + write(10,'(a)') "&nbdrive_naml" + write(10,'(a)') "nlco = 4*T," + write(10,'(a)') "xlbtna = 802.8, 802.8, 802.8, 802.8" + write(10,'(a)') "nbshapa = 4*1" + write(10,'(a)') "/" + rewind(10) + read(10, nbdrive_naml) + !write(*,nbdrive_naml) + close(10, status="delete") +end program test |