New File.

From-SVN: r19294

gcc/testsuite/g77.f-torture/compile/970125-0.f

+	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

gcc/testsuite/g77.f-torture/compile/980419-1.f

+      logical l(10)
+      integer i(10)
+      goto (10,20),l
+      goto (10,20),i
+ 10   stop
+ 20   end