diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 931ba30a8c14..24435f306d2b 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2003-10-13  Geoffrey Keating  <geoffk@apple.com>
 
+	* g77.f-torture/execute/980520-1.x: XFAIL at -O0.
+
 	* gcc.dg/asm-names.c: Use scan-assembler-not rather
 	than linker trickery.
 
diff --git a/gcc/testsuite/g77.f-torture/execute/980520-1.x b/gcc/testsuite/g77.f-torture/execute/980520-1.x
new file mode 100644
index 000000000000..595de5e19118
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980520-1.x
@@ -0,0 +1,11 @@
+set torture_eval_before_compile {
+
+    set compiler_conditional_xfail_data {
+	"PR fortran/9972" \
+	{ "*-*-*" } \
+	{ "-O0" } \
+	{ "" }
+	}
+}
+
+return 0