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).

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140528 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c972097..312e72d 100644 (file)
--- 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 7e4cabf..0fc2a95 100644 (file)
--- 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 6f92376..7498f6e 100644 (file)
--- 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 bf5be56..3eb9687 100644 (file)
--- 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