This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re:FORTAN: PATCH FOR PR #10843
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com>
- To: <gcc-patches at gcc dot gnu dot org>
- Cc: <bdavis9659 at comcast dot net>,<toon at moene dot indiv dot nluug dot nl>
- Date: Tue, 20 May 2003 09:58:23 +1000
- Subject: Re:FORTAN: PATCH FOR PR #10843
Bud and Toon,
I have tested patch http://gcc.gnu.org/ml/gcc-patches/2003-05/msg01616.html on i686-pc-cygwin and confirm it bootstraps without regression.
I have also massaged the tests into g77.dg format, and added another. OK to commit?
--- /dev/null 2003-05-20 09:57:19.000000000 +1000
+++ g77.dg/ffree-form-2.f 2003-05-19 23:23:02.000000000 +1000
@@ -0,0 +1,11 @@
+! PR fortran/10843
+! Origin: Bud Davis <bdavis9659@comcast.net>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+ GO TO 3
+ GOTO 3
+ 3 CONTINUE
+ GOTO = 55
+ END
+
--- /dev/null 2003-05-20 09:57:27.000000000 +1000
+++ g77.dg/ffree-form-3.f 2003-05-20 00:15:37.000000000 +1000
@@ -0,0 +1,23 @@
+! Test acceptance of keywords in free format
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+ integer i, j
+ i = 1
+ if ( i .eq. 1 ) then
+ go = 2
+ endif
+ if ( i .eq. 3 ) then
+ i = 4
+ end if
+ if ( i .eq. 3 ) then
+ i = 4
+ endi f
+ do i = 1, 3
+ j = i
+ end do
+ do j = 1, 3
+ i = j
+ enddo
+ end
--- /dev/null 2003-05-20 09:57:33.000000000 +1000
+++ g77.dg/ffixed-form-1.f 2003-05-19 23:20:20.000000000 +1000
@@ -0,0 +1,6 @@
+! Test compiler flags: -ffixed-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffixed-form" }
+ end
--- /dev/null 2003-05-20 09:57:36.000000000 +1000
+++ g77.dg/ffixed-form-2.f 2003-05-19 23:21:24.000000000 +1000
@@ -0,0 +1,12 @@
+! PR fortran/10843
+! Origin: Bud Davis <bdavis9659@comcast.net>
+!
+! { dg-do compile }
+! { dg-options "-ffixed-form" }
+ GO TO 3
+ GOTO 3
+ 3 CONTINUE
+ GOTO = 55
+ GO TO = 55
+ END
+