OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/45532 (gfortran namelist read error) 

2010-09-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/45532
	* gfortran.dg/namelist_64.f90: New test.

From-SVN: r164267
This commit is contained in:
Jerry DeLisle 2010-09-14 04:39:13 +00:00
parent 3423894f17
commit 927b02e5f8
2 changed files with 32 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 @@
2010-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/45532
* gfortran.dg/namelist_64.f90: New test.
2010-09-13 Jakub Jelinek <jakub@redhat.com>
PR rtl-optimization/45617

27
gcc/testsuite/gfortran.dg/namelist_64.f90 Normal file
View File

@ -0,0 +1,27 @@
! { dg-do run }
! PR45532 gfortran namelist read error.
! Derived from the original test case by David Sagan.
program test
implicit none
type line_struct
integer :: width = 10
end type
type symbol_struct
integer :: typee = 313233
end type
type curve_struct
type (line_struct) line
type (symbol_struct) symbol
end type
type (curve_struct) curve(10)
namelist / params / curve
!
open (10, status="scratch")
write(10,*) "&params"
write(10,*) " curve(1)%symbol%typee = 1234"
write(10,*) "/"
rewind(10)
read (10, nml = params)
if (curve(1)%symbol%typee /= 1234) call abort
close(10)
end program