mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-14 19:00:40 +08:00
Code Issues Packages Projects Releases Wiki Activity

* 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>
* 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