diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c68d6c23f7d2..f650910e64cb 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR forrtran/33849
+	gfortran.dg/generic_actual_arg.f90: Fix dg-error message.
+
 2007-10-23  Martin Michlmayr <tbm@cyrius.com>
 	    Uros Bizjak  <ubizjak@gmail.com>
 
diff --git a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90 b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
index 9087a5d456bf..978f64d09513 100644
--- a/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
+++ b/gcc/testsuite/gfortran.dg/generic_actual_arg.f90
@@ -18,7 +18,7 @@ END SUBROUTINE
 END MODULE TEST
     
 USE TEST
-CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" } 
+CALL F(CALCULATION) ! { dg-error "GENERIC procedure" } 
 END
 
 SUBROUTINE F()