From d6a9f13bee4d87fd984d515b6c9b650e875b9471 Mon Sep 17 00:00:00 2001
From: David Billinghurst <David.Billinghurst@riotinto.com>
Date: Tue, 27 May 2003 05:07:58 +0000
Subject: [PATCH] re PR fortran/10843 (g77 -ffree-form rejects "GO TO".)
2003-05-27 David Billinghurst (David.Billinghurst@riotinto.com)
PR fortran/10843
* g77.dg/ffixed-form-1.f: New test
* g77.dg/ffixed-form-2.f: New test
* g77.dg/ffree-form-2.f: New test - XFAIL pending fix
* g77.dg/ffree-form-3.f: New test
From-SVN: r67181
---
gcc/testsuite/ChangeLog | 8 ++++++++
gcc/testsuite/g77.dg/ffixed-form-1.f | 6 ++++++
gcc/testsuite/g77.dg/ffixed-form-2.f | 12 ++++++++++++
gcc/testsuite/g77.dg/ffree-form-2.f | 12 ++++++++++++
gcc/testsuite/g77.dg/ffree-form-3.f | 20 ++++++++++++++++++++
5 files changed, 58 insertions(+)
create mode 100644 gcc/testsuite/g77.dg/ffixed-form-1.f
create mode 100644 gcc/testsuite/g77.dg/ffixed-form-2.f
create mode 100644 gcc/testsuite/g77.dg/ffree-form-2.f
create mode 100644 gcc/testsuite/g77.dg/ffree-form-3.f
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9e01a21da749..6f47f9a04dd7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2003-05-27 David Billinghurst (David.Billinghurst@riotinto.com)
+
+ PR fortran/10843
+ * g77.dg/ffixed-form-1.f: New test
+ * g77.dg/ffixed-form-2.f: New test
+ * g77.dg/ffree-form-2.f: New test - XFAIL pending fix
+ * g77.dg/ffree-form-3.f: New test
+
2003-05-26 Andreas Tobler <a.tobler@schweiz.ch>
* gcc.dg/wchar_t-1.c: XFAIL on darwin, no wchar.h available.
diff --git a/gcc/testsuite/g77.dg/ffixed-form-1.f b/gcc/testsuite/g77.dg/ffixed-form-1.f
new file mode 100644
index 000000000000..4b5f72301dab
--- /dev/null
+++ b/gcc/testsuite/g77.dg/ffixed-form-1.f
@@ -0,0 +1,6 @@
+! Test compiler flags: -ffixed-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffixed-form" }
+ end
diff --git a/gcc/testsuite/g77.dg/ffixed-form-2.f b/gcc/testsuite/g77.dg/ffixed-form-2.f
new file mode 100644
index 000000000000..5f6980ca0acc
--- /dev/null
+++ b/gcc/testsuite/g77.dg/ffixed-form-2.f
@@ -0,0 +1,12 @@
+! PR fortran/10843
+! Origin: Brad Davis <bdavis9659@comcast.net>
+!
+! { dg-do compile }
+! { dg-options "-ffixed-form" }
+ GO TO 3
+ GOTO 3
+ 3 CONTINUE
+ GOTO = 55
+ GO TO = 55
+ END
+
diff --git a/gcc/testsuite/g77.dg/ffree-form-2.f b/gcc/testsuite/g77.dg/ffree-form-2.f
new file mode 100644
index 000000000000..aef91736fc46
--- /dev/null
+++ b/gcc/testsuite/g77.dg/ffree-form-2.f
@@ -0,0 +1,12 @@
+! PR fortran/10843
+! Origin: Brad Davis <bdavis9659@comcast.net>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+! { dg-excess-errors "GOTO" }
+ GO TO 3
+ GOTO 3
+ 3 CONTINUE
+ GOTO = 55
+ END
+
diff --git a/gcc/testsuite/g77.dg/ffree-form-3.f b/gcc/testsuite/g77.dg/ffree-form-3.f
new file mode 100644
index 000000000000..a30d60460818
--- /dev/null
+++ b/gcc/testsuite/g77.dg/ffree-form-3.f
@@ -0,0 +1,20 @@
+! 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
+ do i = 1, 3
+ j = i
+ end do
+ do j = 1, 3
+ i = j
+ enddo
+ end
--
GitLab