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

* gfortran.dg/slash_1.f90: New test.

Browse source 
From-SVN: r101378
This commit is contained in:
Francois-Xavier Coudert 2005-06-28 13:47:15 +02:00 • committed by François-Xavier Coudert
parent e082bf48ca
commit 0a0a8cf7f5
2 changed files with 18 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-06-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/22170
* gfortran.dg/slash_1.f90: New test.
2005-06-27 Richard Henderson <rth@redhat.com> 2005-06-27 Richard Henderson <rth@redhat.com>
* gcc.dg/vect/vect-reduc-1.c: Adjust test to properly validate MIN. * gcc.dg/vect/vect-reduc-1.c: Adjust test to properly validate MIN.

13
gcc/testsuite/gfortran.dg/slash_1.f90 Normal file
View file

@ -0,0 +1,13 @@
! PR libfortran/22170
! { dg-do run }
integer i
open (10,status='scratch')
write (10,'(A,2/,A)') '12', '17'
rewind (10)
read (10,'(I2)') i
if (i /= 12) call abort
read (10,'(I2)') i
if (i /= 0) call abort
read (10,'(I2)') i
if (i /= 17) call abort
end