actual_array_substr_2.f90: Remove '\r's from line endings.

* gfortran.dg/actual_array_substr_2.f90: Remove '\r's from
line endings.

From-SVN: r117518

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e09494bc37bf89d39af52bae64b938a40408787b..ec94f820f083ae2bb2c04d1974720eb40a3b875c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-06  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * gfortran.dg/actual_array_substr_2.f90: Remove '\r's from
+       line endings.
+
 2006-10-06  Maxim Kuvyrkov  <mkuvyrkov@ispras.ru>
 
        PR rtl-optimization/29128

diff --git a/gcc/testsuite/gfortran.dg/actual_array_substr_2.f90 b/gcc/testsuite/gfortran.dg/actual_array_substr_2.f90
index 365557d6f57d359fbe2e1444c684e59e700ae27a..6613751d0ad39750b5f5f7259070bda656e6171e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/actual_array_substr_2.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_substr_2.f90
@@ -7,38 +7,38 @@
 !
 ! Based on the testscase by Harald Anlauf  <anlauf@gmx.de>
 !
-program pr28174\r
-  implicit none\r
+program pr28174
+  implicit none
   character(len=12) :: teststring(2) = (/ "abc def ghij", &
-                                          "klm nop qrst" /)\r
+                                          "klm nop qrst" /)
   character(len=12) :: a(2), b(2), c(2), d(2)
-  integer :: m = 7, n\r
-  a = teststring\r
-  b = a\r
-  c = a\r
+  integer :: m = 7, n
+  a = teststring
+  b = a
+  c = a
   d = a
   n = m - 4
 
-! Make sure that variable substring references work.\r
-  call foo (a(:)(m:m+5), c(:)(n:m+2), d(:)(5:9))\r
+! Make sure that variable substring references work.
+  call foo (a(:)(m:m+5), c(:)(n:m+2), d(:)(5:9))
   if (any (a .ne. teststring)) call abort ()
   if (any (b .ne. teststring)) call abort ()
   if (any (c .ne. (/"ab456789#hij", &
                     "kl7654321rst"/))) call abort ()
   if (any (d .ne. (/"abc 23456hij", &
-                    "klm 98765rst"/))) call abort ()\r
-contains\r
-  subroutine foo (w, x, y)\r
-    character(len=*), intent(in) :: w(:)\r
-    character(len=*), intent(inOUT) :: x(:)\r
+                    "klm 98765rst"/))) call abort ()
+contains
+  subroutine foo (w, x, y)
+    character(len=*), intent(in) :: w(:)
+    character(len=*), intent(inOUT) :: x(:)
     character(len=*), intent(OUT) :: y(:)
     character(len=12) :: foostring(2) = (/"0123456789#$" , &
                                           "$#9876543210"/)
 ! This next is not required by the standard but tests the
-! functioning of the gfortran implementation.\r
+! functioning of the gfortran implementation.
 !   if (all (x(:)(3:7) .eq. y)) call abort ()
     x = foostring (:)(5 : 4 + len (x))
     y = foostring (:)(3 : 2 + len (y))
-  end subroutine foo\r
-end program pr28174\r
-\r
+  end subroutine foo
+end program pr28174
+