New File.

From-SVN: r19294

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 (file)
index 0000000..d2098ba
--- /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 (file)
index 0000000..8370ef5
--- /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