decl.c (match_procedure_in_type): Changed misleading error message for not yet…

decl.c (match_procedure_in_type): Changed misleading error message for not yet implemented PROCEDURE(interface)...

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-21  Daniel Kraft  <d@domob.eu>

	* gfortran.dg/typebound_proc_4.f03: Changed expected error for not
	yet implemented PROCEDURE(interface).

From-SVN: r140528

gcc/fortran/ChangeLog

+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

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;
     }
 

gcc/testsuite/ChangeLog

+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

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