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

From-SVN: r101378

* gfortran.dg/slash_1.f90: New test.
From-SVN: r101378
0a0a8cf7 · Francois-Xavier Coudert · François-Xavier Coudert · e082bf48 · 0a0a8cf7 · 0a0a8cf7
Commit 0a0a8cf7 authored Jun 28, 2005 by Francois-Xavier Coudert Committed by François-Xavier Coudert Jun 28, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 18 additions and 0 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/gfortran.dg/slash_1.f90
+13 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

--- a/gcc/testsuite/gfortran.dg/slash_1.f90
+++ b/gcc/testsuite/gfortran.dg/slash_1.f90
+! 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