diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-09-14 04:39:13 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-09-14 04:39:13 +0000 |
| commit | 927b02e5f88b8eb684ddb057dca8e723ceb227a9 (patch) | |
| tree | d1dfaef7774895c3d7da6bf0b5a8bdb22404a355 /gcc | |
| parent | 3423894f17cfdd78ebd2c0c1cc765c6f8a39fff1 (diff) | |
| download | gcc-927b02e5f88b8eb684ddb057dca8e723ceb227a9.zip gcc-927b02e5f88b8eb684ddb057dca8e723ceb227a9.tar.gz gcc-927b02e5f88b8eb684ddb057dca8e723ceb227a9.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_64.f90 | 27 |
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c663a4b..d22f02c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/namelist_64.f90 b/gcc/testsuite/gfortran.dg/namelist_64.f90 new file mode 100644 index 0000000..b5084e0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_64.f90 @@ -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,*) "¶ms" +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 |