This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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
+



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]