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 0000000000000000000000000000000000000000..d2098bafe3916631bef0eb54a1ba6b095709f202
--- /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 0000000000000000000000000000000000000000..8370ef5fd82512dea3a34615d79b9a90b891b5a5
--- /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