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

re PR libfortran/25039 ([4.1 only] comma short-circuit field width)

Browse source 
2005-12-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25039
	* gfortran.dg/read_comma.f: New test.

From-SVN: r108272
This commit is contained in:
Jerry DeLisle 2005-12-09 02:57:13 +00:00
parent b14c7e14ab
commit 18d83a6fa8
2 changed files with 31 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 @@
2005-12-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25039
* gfortran.dg/read_comma.f: New test.
2005-12-08 Jakub Jelinek <jakub@redhat.com>
PR c++/19317

26
gcc/testsuite/gfortran.dg/read_comma.f Normal file
View file

@ -0,0 +1,26 @@
! { dg-do run }
! PR25039 This test checks that commas in input fields for formatted sequential
! reads are interpreted as the read completion. If no comma is encountered the
! normal field width determines the end of the read. The test case also checks
! that default blanks are interpreted as NULL in numerics.
! Test case derived from sample provided in PR by Iwan Kawrakow.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
!
program pr25039
implicit none
integer :: i1, i2, i3
character(10) :: a1
open(10, status="scratch")
write(10,'(a)') "1, 235"
rewind(10)
read(10,'(3i2)') i1,i2,i3
if(i1.ne.1) call abort()
if(i2.ne.2) call abort()
if(i3.ne.35) call abort()
rewind(10)
! Make sure commas are read in character strings.
write(10,'(a)') "1234,6789,"
rewind(10)
read(10,'(a10)') a1
if(a1.ne."1234,6789,") call abort()
end