From 06b0a933a200f652a5b831cdf17be3da79cbb041 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gcc.gnu.org>
Date: Sun, 19 Apr 1998 05:54:09 +0000
Subject: [PATCH] New File.

From-SVN: r19294
---
 gcc/testsuite/g77.f-torture/compile/970125-0.f | 16 ++++++++++++++++
 gcc/testsuite/g77.f-torture/compile/980419-1.f |  6 ++++++
 2 files changed, 22 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/compile/970125-0.f
 create mode 100644 gcc/testsuite/g77.f-torture/compile/980419-1.f

diff --git a/gcc/testsuite/g77.f-torture/compile/970125-0.f b/gcc/testsuite/g77.f-torture/compile/970125-0.f
new file mode 100644
index 00000000000..d2098bafe39
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/970125-0.f
@@ -0,0 +1,16 @@
+	integer*4 i4
+	integer*8 i8
+	integer*8 max4
+	data max4/2147483647/
+	i4 = %loc(i4)
+	i8 = %loc(i8)
+	print *, max4
+	print *, i4, %loc(i4)
+	print *, i8, %loc(i8)
+	call foo(i4, %loc(i4), i8, %loc(i8))
+	end
+	subroutine foo(i4, i4a, i8, i8a)
+	integer*8 i8
+	print *, i4, i4a
+	print *, i8, i8a
+	end
diff --git a/gcc/testsuite/g77.f-torture/compile/980419-1.f b/gcc/testsuite/g77.f-torture/compile/980419-1.f
new file mode 100644
index 00000000000..8370ef5fd82
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/980419-1.f
@@ -0,0 +1,6 @@
+      logical l(10)
+      integer i(10)
+      goto (10,20),l
+      goto (10,20),i
+ 10   stop
+ 20   end