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

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

From-SVN: r117514

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9beac3fc86d8b6c02aeae90c9c3554c2efe955ba..86b892cfc344a6b44e0795968c450d86301a7ef0 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_constructor_2.f90: Remove '\r's from
+       line endings.
+
 2006-10-06  Zdenek Dvorak <dvorakz@suse.cz>
 
        PR middle-end/29256

diff --git a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
index 0a86b70d7bf14b88dcc93a1caba30a981c9633f1..4265aeb35f036d3ee09e84e93b43d7b01ea5363d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
@@ -5,30 +5,30 @@
 !
 ! Based on the testscase by Harald Anlauf  <anlauf@gmx.de>
 !
-  character(4), dimension(4) :: c1, c2\r
-  integer m\r
-  m = 4\r
-! Test the original problem\r
-  call foo ((/( 'abcd',i=1,m )/), c2)\r
-  if (any(c2(:) .ne. (/'abcd','abcd', &\r
-                            'abcd','abcd'/))) call abort ()\r
-\r
+  character(4), dimension(4) :: c1, c2
+  integer m
+  m = 4
+! Test the original problem
+  call foo ((/( 'abcd',i=1,m )/), c2)
+  if (any(c2(:) .ne. (/'abcd','abcd', &
+                            'abcd','abcd'/))) call abort ()
+
 ! Now get a bit smarter\r
-  call foo ((/"abcd", "efgh", "ijkl", "mnop"/), c1) ! worked previously\r
-  call foo ((/(c1(i), i = m,1,-1)/), c2)            ! was broken\r
-  if (any(c2(4:1:-1) .ne. c1)) call abort ()\r
-\r
-! gfc_todo: Not Implemented: complex character array constructors\r
+  call foo ((/"abcd", "efgh", "ijkl", "mnop"/), c1) ! worked previously
+  call foo ((/(c1(i), i = m,1,-1)/), c2)            ! was broken
+  if (any(c2(4:1:-1) .ne. c1)) call abort ()
+
+! gfc_todo: Not Implemented: complex character array constructors
   call foo ((/(c1(i)(i/2+1:i/2+2), i = 1,4)/), c2)  ! Ha! take that..!
   if (any (c2 .ne. (/"ab  ","fg  ","jk  ","op  "/))) call abort ()
-\r
+
 ! Check functions in the constructor\r
-  call foo ((/(achar(64+i)//achar(68+i)//achar(72+i)// &\r
-               achar(76+i),i=1,4 )/), c1)           ! was broken\r
-  if (any (c1 .ne. (/"AEIM","BFJN","CGKO","DHLP"/))) call abort ()\r
-contains\r
-  subroutine foo (chr1, chr2)\r
-    character(*), dimension(:) :: chr1, chr2\r
-    chr2 = chr1\r
-  end subroutine foo\r
-end
\ No newline at end of file
+  call foo ((/(achar(64+i)//achar(68+i)//achar(72+i)// &
+               achar(76+i),i=1,4 )/), c1)           ! was broken
+  if (any (c1 .ne. (/"AEIM","BFJN","CGKO","DHLP"/))) call abort ()
+contains
+  subroutine foo (chr1, chr2)
+    character(*), dimension(:) :: chr1, chr2
+    chr2 = chr1
+  end subroutine foo
+end