diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-08-03 22:02:22 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-08-03 22:02:22 +0000 |
| commit | 804ac2323989de74b5acd0ecc9e60e8e8c8127e4 (patch) | |
| tree | f943842c10d7aa68cb7e746dde8905b248329a91 | |
| parent | b7c9c5ab7f1a599429f439a5fdc0391630e0d67c (diff) | |
| download | gcc-804ac2323989de74b5acd0ecc9e60e8e8c8127e4.zip gcc-804ac2323989de74b5acd0ecc9e60e8e8c8127e4.tar.gz gcc-804ac2323989de74b5acd0ecc9e60e8e8c8127e4.tar.bz2 | |
fmt_t_7.f: Replace CR-LF with LF.
2008-08-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/fmt_t_7.f: Replace CR-LF with LF.
From-SVN: r138568
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_t_7.f | 32 |
2 files changed, 20 insertions, 16 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e3d7628..6819be9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-08-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/fmt_t_7.f: Replace CR-LF with LF. + 2008-08-03 Uros Bizjak <ubizjak@gmail.com> PR target/36992 diff --git a/gcc/testsuite/gfortran.dg/fmt_t_7.f b/gcc/testsuite/gfortran.dg/fmt_t_7.f index baef07e..718668f 100644 --- a/gcc/testsuite/gfortran.dg/fmt_t_7.f +++ b/gcc/testsuite/gfortran.dg/fmt_t_7.f @@ -1,16 +1,16 @@ -! { dg-do run { target fd_truncate } }
-! PR34974 null bytes when reverse-tabbing long records
-! Test case prpared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
- program test
- character(1) :: a, b, c
- write (10,'(t50000,a,t1,a)') 'b', 'a'
- close (10)
- open (10, access="stream")
- read (10, pos=1) a
- read (10, pos=50000) b
- read (10, pos=25474) c
- close (10, status="delete")
- if (a /= "a") call abort
- if (b /= "b") call abort
- if (c /= " ") call abort
- end
+! { dg-do run { target fd_truncate } } +! PR34974 null bytes when reverse-tabbing long records +! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> + program test + character(1) :: a, b, c + write (10,'(t50000,a,t1,a)') 'b', 'a' + close (10) + open (10, access="stream") + read (10, pos=1) a + read (10, pos=50000) b + read (10, pos=25474) c + close (10, status="delete") + if (a /= "a") call abort + if (b /= "b") call abort + if (c /= " ") call abort + end |