diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd936c06241..68dac0a3460 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/30779
+	* gfortran.dg/error_recovery_3.f90: New test.
+
 2007-02-15  Alexandre Oliva  <aoliva@redhat.com>
 
 	* g++.dg/tree-ssa/sra-1.C: New.
diff --git a/gcc/testsuite/gfortran.dg/error_recovery_3.f90 b/gcc/testsuite/gfortran.dg/error_recovery_3.f90
new file mode 100644
index 00000000000..d0ec20500d3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/error_recovery_3.f90
@@ -0,0 +1,9 @@
+! { dg-do compile }
+! PR30779 incomplete file triggers ICE.
+! Note: This file is deliberately cut short to verify a graceful exit. Before
+! the patch this gave ICE.
+MODULE M1
+ INTEGER :: I
+END MODULE M1
+
+USE M1,                    ONLY: I,&! { dg-error "Missing" }
\ No newline at end of file