From 0a0a8cf7f51c449c94a0ab9b38c3adb8bef34d45 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 28 Jun 2005 13:47:15 +0200 Subject: * gfortran.dg/slash_1.f90: New test. From-SVN: r101378 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/slash_1.f90 | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/slash_1.f90 (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4110b33e..f100e45 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-06-28 Francois-Xavier Coudert + + PR libfortran/22170 + * gfortran.dg/slash_1.f90: New test. + 2005-06-27 Richard Henderson * gcc.dg/vect/vect-reduc-1.c: Adjust test to properly validate MIN. diff --git a/gcc/testsuite/gfortran.dg/slash_1.f90 b/gcc/testsuite/gfortran.dg/slash_1.f90 new file mode 100644 index 0000000..d4a59a3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/slash_1.f90 @@ -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 -- cgit v1.1