f77-edit-i-out.f: Escape \.

2002-01-30  David Billinghurst  <David.Billinghurst@riotinto.com>

	* g77.dg/f77-edit-i-out.f:  Escape \. Allow \r\n and \r.

From-SVN: r49337

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f4ab14b37455aae08ce4be6dd6592763a75a710d..3d1e128ba18af35194c180a368f292dfaaa10416 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-30  David Billinghurst  <David.Billinghurst@riotinto.com>
+
+       * g77.dg/f77-edit-i-out.f:  Escape \. Allow \r\n and \r.
+
 2002-01-29  Richard Henderson  <rth@redhat.com>
 
        * gcc.c-torture/execute/991118-1.c: Cast various constants back

diff --git a/gcc/testsuite/g77.dg/f77-edit-i-out.f b/gcc/testsuite/g77.dg/f77-edit-i-out.f
index 5da54016f480e7b03d8362a86a90fe4a9a3f50d4..9887704c716febe304c49589a4416682a1cfdf09 100644 (file)
--- a/gcc/testsuite/g77.dg/f77-edit-i-out.f
+++ b/gcc/testsuite/g77.dg/f77-edit-i-out.f
@@ -6,22 +6,21 @@ C
 C { dg-do run }
 C { dg-output "^" }
 
-      write(*,'(I1)')    1  ! { dg-output "1\n" }
-      write(*,'(I1)')   -1  ! { dg-output "\*\n" }
-      write(*,'(I2)')    2  ! { dg-output " 2\n" }
-      write(*,'(I2)')   -2  ! { dg-output "-2\n" }
-      write(*,'(I3)')    3  ! { dg-output "  3\n" }
-      write(*,'(I3)')   -3  ! { dg-output " -3\n" }
+      write(*,'(I1)')    1  ! { dg-output "1(\n|\r\n|\r)" }
+      write(*,'(I1)')   -1  ! { dg-output "\\*(\n|\r\n|\r)" }
+      write(*,'(I2)')    2  ! { dg-output " 2(\n|\r\n|\r)" }
+      write(*,'(I2)')   -2  ! { dg-output "-2(\n|\r\n|\r)" }
+      write(*,'(I3)')    3  ! { dg-output "  3(\n|\r\n|\r)" }
+      write(*,'(I3)')   -3  ! { dg-output " -3(\n|\r\n|\r)" }
 
-      write(*,'(I2.0)')  0  ! { dg-output "  \n" }
-      write(*,'(I1.1)')  4  ! { dg-output "4\n" }
-      write(*,'(I1.1)') -4  ! { dg-output "\*\n" }
-      write(*,'(I2.1)')  5  ! { dg-output " 5\n" }
-      write(*,'(I2.1)') -5  ! { dg-output "-5\n" }
-      write(*,'(I2.2)')  6  ! { dg-output "06\n" }
-      write(*,'(I2.2)') -6  ! { dg-output "\*\*\n" }
-      write(*,'(I3.2)')  7  ! { dg-output " 07\n" }
-      write(*,'(I3.2)') -7  ! { dg-output "-07\n" }
+      write(*,'(I2.0)')  0  ! { dg-output "  (\n|\r\n|\r)" }
+      write(*,'(I1.1)')  4  ! { dg-output "4(\n|\r\n|\r)" }
+      write(*,'(I1.1)') -4  ! { dg-output "\\*(\n|\r\n|\r)" }
+      write(*,'(I2.1)')  5  ! { dg-output " 5(\n|\r\n|\r)" }
+      write(*,'(I2.1)') -5  ! { dg-output "-5(\n|\r\n|\r)" }
+      write(*,'(I2.2)')  6  ! { dg-output "06(\n|\r\n|\r)" }
+      write(*,'(I2.2)') -6  ! { dg-output "\\*\\*(\n|\r\n|\r)" }
+      write(*,'(I3.2)')  7  ! { dg-output " 07(\n|\r\n|\r)" }
+      write(*,'(I3.2)') -7  ! { dg-output "-07(\n|\r\n|\r)" }
 
-C { dg-output "$" }
       end