This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
RE: g77 tests for formatted I/O - with a fix
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com>
- To: <gcc-patches at gcc dot gnu dot org>
- Cc: "Toon Moene" <toon at moene dot indiv dot nluug dot nl>,<dave at hiauly1 dot hia dot nrc dot ca>,"Jakub Jelinek" <jakub at redhat dot com>
- Date: Wed, 30 Jan 2002 06:48:34 +0800
- Subject: RE: g77 tests for formatted I/O - with a fix
OK. This patch changes "\*" to "\\*". It works on irix and cygwin. Does it work for you
2002-01-30 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.dg/f77-edit-i-out.f: Change "\*" to "\\*".
Index: f77-edit-i-out.f
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/g77.dg/f77-edit-i-out.f,v
retrieving revision 1.1
diff -u -r1.1 f77-edit-i-out.f
--- f77-edit-i-out.f 2002/01/27 01:39:36 1.1
+++ f77-edit-i-out.f 2002/01/29 22:44:50
@@ -7,7 +7,7 @@
C { dg-output "^" }
write(*,'(I1)') 1 ! { dg-output "1\n" }
- write(*,'(I1)') -1 ! { dg-output "\*\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" }
@@ -15,11 +15,11 @@
write(*,'(I2.0)') 0 ! { dg-output " \n" }
write(*,'(I1.1)') 4 ! { dg-output "4\n" }
- write(*,'(I1.1)') -4 ! { dg-output "\*\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(*,'(I2.2)') -6 ! { dg-output "\\*\\*\n" }
write(*,'(I3.2)') 7 ! { dg-output " 07\n" }
write(*,'(I3.2)') -7 ! { dg-output "-07\n" }
-----Original Message-----
From: Jakub Jelinek [mailto:jakub@redhat.com]
Sent: Tuesday, 29 January 2002 11:39
To: Billinghurst, David (CRTS)
Cc: Toon Moene; dave@hiauly1.hia.nrc.ca; gcc-patches@gcc.gnu.org
Subject: Re: g77 tests for formatted I/O
On Tue, Jan 29, 2002 at 06:10:11PM +0800, Billinghurst, David (CRTS) wrote:
> I tested on i686-pc-cygwin and mips-sgi-irix6.5, and have confirmed that the code in CVS works on these platforms. gcc-testsuite results indicate success on linux as well.
>
> Looks like one of the two tests I checked in is exercising dejagnu
> features that have problems on your platforms. My money is on
> g77.dg/f77-edit-i-out.f It uses dg-output, which has not been used before.
> If either of you can confirm this, I will delete the test and try another
> way.
I get the same error on i386-redhat-linux with dejagnu 1.4.1.
If I replace all \* sequences with \\*, it works properly though.
Jakub