From: Jerry DeLisle Date: Thu, 20 Mar 2008 02:07:38 +0000 (+0000) Subject: re PR fortran/35627 (namelist read error) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2e7a391e0f0cbf6277093c489166aa155feb2454;p=gcc.git re PR fortran/35627 (namelist read error) 2008-03-19 Jerry DeLisle PR libfortran/35627 * gfortran.dg/namelist_46.f90: New test. From-SVN: r133361 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d3758f9a745..d948c18fbec 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-03-19 Jerry DeLisle + + PR libfortran/35627 + * gfortran.dg/namelist_46.f90: New test. + 2008-03-20 Uros Bizjak PR target/14552 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