diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-07-23 00:44:20 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-07-23 00:44:20 +0200 |
| commit | f5e62ce922eace0a9c8989c4f962d50005ad9d47 (patch) | |
| tree | 707c19c9f69eb906591b98e127c3996e1450c8ad /gcc | |
| parent | efc694a70a411f4399c71c715afaa22b10edac75 (diff) | |
| download | gcc-f5e62ce922eace0a9c8989c4f962d50005ad9d47.zip gcc-f5e62ce922eace0a9c8989c4f962d50005ad9d47.tar.gz gcc-f5e62ce922eace0a9c8989c4f962d50005ad9d47.tar.bz2 | |
re PR libfortran/49791 (Formatted namelist reads fails with: Cannot match namelist object)
2011-07-23 Tobias Burnus <burnus@net-b.de>
PR fortran/49791
* io/list_read.c (nml_parse_qualifier): Remove check to
enabled extended read for another case.
2011-07-23 Tobias Burnus <burnus@net-b.de>
PR fortran/49791
* gfortran.dg/namelist_72.f: New.
From-SVN: r176661
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_72.f | 33 |
2 files changed, 38 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8eb2828..a364c72 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2011-07-23 Tobias Burnus <burnus@net-b.de> + PR fortran/49791 + * gfortran.dg/namelist_72.f: New. + +2011-07-23 Tobias Burnus <burnus@net-b.de> + * gfortran.dg/coarray_25.f90: New. 2011-07-22 Ville Voutilainen <ville.voutilainen@gmail.com> diff --git a/gcc/testsuite/gfortran.dg/namelist_72.f b/gcc/testsuite/gfortran.dg/namelist_72.f new file mode 100644 index 0000000..22c0880 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_72.f @@ -0,0 +1,33 @@ +! { dg-do run } +! +! PR fortran/49791 +! +! Contributed by Elliott Sales de Andrade +! + program namelist_test + + dimension xpos(5000), ypos(5000) + namelist /geometry/ xpos, ypos + + xpos = -huge(xpos) + ypos = -huge(ypos) + + open(unit=4,file='geometry.in') + write(4,'(a)') '$geometry' + write(4,'(a)') ' xpos(1)= 0.00, 0.10, 0.20, 0.30, 0.40,' + write(4,'(a)') ' ypos(1)= 0.50, 0.60, 0.70, 0.80, 0.90,' + write(4,'(a)') '$end' + + close(4) + + open (unit=4,file='geometry.in',status='old',form='formatted') + read (4,geometry) + close(4, status='delete') + + !print *, 'xpos', xpos(1:10), 'ypos', ypos(1:10) + + if (any (xpos(1:5) /= [0.00, 0.10, 0.20, 0.30, 0.40]))call abort() + if (any (ypos(1:5) /= [0.50, 0.60, 0.70, 0.80, 0.90]))call abort() + if (any (xpos(6:) /= -huge(xpos))) call abort () + if (any (ypos(6:) /= -huge(ypos))) call abort () + end |