diff --git a/gcc/testsuite/g77.f-torture/compile/980729-0.f b/gcc/testsuite/g77.f-torture/compile/980729-0.f
new file mode 100644
index 00000000000..07789441d41
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/980729-0.f
@@ -0,0 +1,5 @@
+c     Got ICE on Alpha only with -mieee (currently not tested).
+c     Fixed by rth 1998-07-30 alpha.md change.
+      subroutine a(b,c)
+      b = max(b,c)
+      end