From 74a9b8976475b250d6d9d68b2ea557cc0e778f4e Mon Sep 17 00:00:00 2001 From: Daniel Kraft Date: Sun, 21 Sep 2008 17:24:55 +0200 Subject: [PATCH] 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/ChangeLog | 5 +++++ gcc/fortran/decl.c | 3 +-- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/typebound_proc_4.f03 | 2 +- 4 files changed, 12 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c972097..312e72d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2008-09-21 Daniel Kraft + + * decl.c (match_procedure_in_type): Changed misleading error message + for not yet implemented PROCEDURE(interface) syntax. + 2008-09-18 Paul Thomas PR fortran/35945 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; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6f92376..7498f6e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-09-21 Daniel Kraft + + * gfortran.dg/typebound_proc_4.f03: Changed expected error for not + yet implemented PROCEDURE(interface). + 2008-09-21 Ira Rosen 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 --- 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 -- 2.7.4