procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/35627 (namelist read error)

Browse source 
2008-03-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/35627
	* gfortran.dg/namelist_46.f90: New test.

From-SVN: r133361
This commit is contained in:
Jerry DeLisle 2008-03-20 02:07:38 +00:00
parent 17f46ec355
commit 2e7a391e0f
2 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35627
* gfortran.dg/namelist_46.f90: New test.
2008-03-20 Uros Bizjak <ubizjak@gmail.com>
PR target/14552

23
gcc/testsuite/gfortran.dg/namelist_46.f90 Normal file
View file

@ -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