ffixed-form-1.f: Copy from g77.dg

2004-07-10  David Billinghurst (David.Billinghurst@riotinto.com)

	* gfortran.dg/g77/ffixed-form-1.f: Copy from g77.dg
	* gfortran.dg/g77/ffixed-form-2.f: Likewise
	* gfortran.dg/g77/ffree-form-1.f: Likewise
	* gfortran.dg/g77/ffree-form-2.f: Likewise
	* gfortran.dg/g77/ffree-form-3.f: Likewise
	* gfortran.dg/g77/fno-underscoring.f: Likewise
	* gfortran.dg/g77/funderscoring.f: Likewise
	* gfortran.dg/g77/pr9258.f: Likewise.  Add dg-warning lines.

From-SVN: r84455

diff --git a/gcc/testsuite/gfortran.dg/g77/ffixed-form-1.f b/gcc/testsuite/gfortran.dg/g77/ffixed-form-1.f
new file mode 100644 (file)
index 0000000..4b5f723
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/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/gfortran.dg/g77/ffixed-form-2.f b/gcc/testsuite/gfortran.dg/g77/ffixed-form-2.f
new file mode 100644 (file)
index 0000000..5f6980c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/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/gfortran.dg/g77/ffree-form-1.f b/gcc/testsuite/gfortran.dg/g77/ffree-form-1.f
new file mode 100644 (file)
index 0000000..88ddeef
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/ffree-form-1.f
@@ -0,0 +1,6 @@
+! Test compiler flags: -ffree-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+end

diff --git a/gcc/testsuite/gfortran.dg/g77/ffree-form-2.f b/gcc/testsuite/gfortran.dg/g77/ffree-form-2.f
new file mode 100644 (file)
index 0000000..b07db21
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/ffree-form-2.f
@@ -0,0 +1,11 @@
+! PR fortran/10843
+! Origin: Brad Davis <bdavis9659@comcast.net>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+      GO TO 3 
+      GOTO 3
+ 3    CONTINUE
+      GOTO = 55
+      END
+

diff --git a/gcc/testsuite/gfortran.dg/g77/ffree-form-3.f b/gcc/testsuite/gfortran.dg/g77/ffree-form-3.f
new file mode 100644 (file)
index 0000000..a30d604
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/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

diff --git a/gcc/testsuite/gfortran.dg/g77/fno-underscoring.f b/gcc/testsuite/gfortran.dg/g77/fno-underscoring.f
new file mode 100644 (file)
index 0000000..b91320b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/fno-underscoring.f
@@ -0,0 +1,8 @@
+C Test compiler flags: -fno-underscoring
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-fno-underscoring" }
+      call aaabbbccc
+      end
+C { dg-final { scan-assembler-not "aaabbbccc_" } }

diff --git a/gcc/testsuite/gfortran.dg/g77/funderscoring.f b/gcc/testsuite/gfortran.dg/g77/funderscoring.f
new file mode 100644 (file)
index 0000000..720b3a7
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/funderscoring.f
@@ -0,0 +1,8 @@
+C Test compiler flags: -funderscoring
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-funderscoring" }
+      call aaabbbccc
+      end
+C { dg-final { scan-assembler "aaabbbccc_" } }

diff --git a/gcc/testsuite/gfortran.dg/g77/pr9258.f b/gcc/testsuite/gfortran.dg/g77/pr9258.f
new file mode 100644 (file)
index 0000000..6de7845
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/pr9258.f
@@ -0,0 +1,18 @@
+C Test case for PR/9258
+C Origin: kmccarty@princeton.edu
+C
+C { dg-do compile }
+      SUBROUTINE FOO (B)
+
+  10  CALL BAR (A)
+      ASSIGN 20 TO M           !{ dg-warning "Obsolete: ASSIGN" "" }
+      IF (100.LT.A) GOTO 10
+      GOTO 40
+C
+  20  IF (B.LT.ABS(A)) GOTO 10
+      ASSIGN 30 TO M           !{ dg-warning "Obsolete: ASSIGN" "" }
+      GOTO 40
+C
+  30  ASSIGN 10 TO M           !{ dg-warning "Obsolete: ASSIGN" "" }
+  40  GOTO M,(10,20,30)        !{ dg-warning "Obsolete: Assigned GOTO" "" }
+      END