diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-06-28 13:47:15 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-28 11:47:15 +0000 |
| commit | 0a0a8cf7f51c449c94a0ab9b38c3adb8bef34d45 (patch) | |
| tree | ca6c072e88c524c53ba6c4acaa34dd805d6ba80c | |
| parent | e082bf48cae5afbf51ed8f89783975c6c6c2e550 (diff) | |
| download | gcc-0a0a8cf7f51c449c94a0ab9b38c3adb8bef34d45.zip gcc-0a0a8cf7f51c449c94a0ab9b38c3adb8bef34d45.tar.gz gcc-0a0a8cf7f51c449c94a0ab9b38c3adb8bef34d45.tar.bz2 | |
* gfortran.dg/slash_1.f90: New test.
From-SVN: r101378
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/slash_1.f90 | 13 |
2 files changed, 18 insertions, 0 deletions
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 <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. 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 |