add missed aprt of patch

From-SVN: r117517

diff --git a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
index 4265aeb35f036d3ee09e84e93b43d7b01ea5363d..ba05ac698bfa0ea9c2754905258d9142d35338b9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
+++ b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
@@ -13,7 +13,7 @@
   if (any(c2(:) .ne. (/'abcd','abcd', &
                             'abcd','abcd'/))) call abort ()
 
-! Now get a bit smarter\r
+! Now get a bit smarter
   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 ()
@@ -22,7 +22,7 @@
   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 ()
 
-! Check functions in the constructor\r
+! Check functions in the constructor
   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 ()