diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c972097a67b8..312e72d34c1d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-21  Daniel Kraft  <d@domob.eu>
+
+	* decl.c (match_procedure_in_type): Changed misleading error message
+	for not yet implemented PROCEDURE(interface) syntax.
+
 2008-09-18  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/35945
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 7e4cabf21ad5..0fc2a95073e9 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -6907,8 +6907,7 @@ match_procedure_in_type (void)
   /* TODO: Really implement PROCEDURE(interface).  */
   if (gfc_match (" (") == MATCH_YES)
     {
-      gfc_error ("Procedure with interface only allowed in abstract types at"
-		 " %C");
+      gfc_error ("PROCEDURE(interface) at %C is not yet implemented");
       return MATCH_ERROR;
     }
 
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6f92376669a8..7498f6eaa607 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-21  Daniel Kraft  <d@domob.eu>
+
+	* gfortran.dg/typebound_proc_4.f03: Changed expected error for not
+	yet implemented PROCEDURE(interface).
+
 2008-09-21  Ira Rosen  <irar@il.ibm.com>
 
 	PR tree-optimization/37539
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_4.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_4.f03
index bf5be5627769..3eb9687ad022 100644
--- a/gcc/testsuite/gfortran.dg/typebound_proc_4.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_proc_4.f03
@@ -33,7 +33,7 @@ MODULE testmod
 
     ! TODO: Correct these when things get implemented.
     PROCEDURE, DEFERRED :: x ! { dg-error "not yet implemented" }
-    PROCEDURE(abc) ! { dg-error "abstract type" }
+    PROCEDURE(abc) ! { dg-error "not yet implemented" }
   END TYPE t
 
 CONTAINS