PR libfortran/PR42422
2009-12-21 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/PR42422 * gfortran.dg/list_read_10.f90: New test. From-SVN: r155378
This commit is contained in:
parent
afd88205d8
commit
78e3682410
|
@ -1,3 +1,8 @@
|
|||
2009-12-21 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||
|
||||
PR libfortran/PR42422
|
||||
* gfortran.dg/list_read_10.f90: New test.
|
||||
|
||||
2009-12-19 Dodji Seketeli <dodji@redhat.com>
|
||||
|
||||
PR c++/42225
|
||||
|
|
|
@ -0,0 +1,14 @@
|
|||
! { dg-do run }
|
||||
! PR 42422 - read with a repeat specifyer following a separator
|
||||
program main
|
||||
integer, dimension(10) :: i1, i2
|
||||
|
||||
i1 = 0
|
||||
i2 = (/ 1, 2, 3, 5, 5, 5, 5, 0, 0, 0 /)
|
||||
open (10,file="pr42422.dat")
|
||||
write (10,'(A)') ' 1 2 3 4*5 /'
|
||||
rewind 10
|
||||
read (10,*) i1
|
||||
if (any(i1 /= i2)) call abort
|
||||
close (10,status="delete")
|
||||
end program main
|
Loading…
Reference in New Issue