diff options
| author | Daniel Kraft <d@domob.eu> | 2008-09-21 17:24:55 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2008-09-21 17:24:55 +0200 |
| commit | 74a9b8976475b250d6d9d68b2ea557cc0e778f4e (patch) | |
| tree | 539d84544339f2e3b878e56e057d4f6194a01f9b | |
| parent | e6c99067cbb1827ecc4a54ec6fdac6e221d933a0 (diff) | |
| download | gcc-74a9b8976475b250d6d9d68b2ea557cc0e778f4e.zip gcc-74a9b8976475b250d6d9d68b2ea557cc0e778f4e.tar.gz gcc-74a9b8976475b250d6d9d68b2ea557cc0e778f4e.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 --- 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 <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 --- 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 |