From 74a9b8976475b250d6d9d68b2ea557cc0e778f4e Mon Sep 17 00:00:00 2001 From: Daniel Kraft Date: Sun, 21 Sep 2008 17:24:55 +0200 Subject: decl.c (match_procedure_in_type): Changed misleading error message for not yet implemented PROCEDURE(interface)... 2008-09-21 Daniel Kraft * decl.c (match_procedure_in_type): Changed misleading error message for not yet implemented PROCEDURE(interface) syntax. 2008-09-21 Daniel Kraft * gfortran.dg/typebound_proc_4.f03: Changed expected error for not yet implemented PROCEDURE(interface). From-SVN: r140528 --- gcc/fortran/decl.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gcc/fortran/decl.c') diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 7e4cabf..0fc2a95 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; } -- cgit v1.1