From 804ac2323989de74b5acd0ecc9e60e8e8c8127e4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 3 Aug 2008 22:02:22 +0000 Subject: [PATCH] fmt_t_7.f: Replace CR-LF with LF. 2008-08-03 Jerry DeLisle * gfortran.dg/fmt_t_7.f: Replace CR-LF with LF. From-SVN: r138568 --- gcc/testsuite/ChangeLog | 4 ++++ 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 + + * gfortran.dg/fmt_t_7.f: Replace CR-LF with LF. + 2008-08-03 Uros Bizjak 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 - 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 + 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 -- 2.7.4