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 /gcc/testsuite | |
| 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
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_proc_4.f03 | 2 |
2 files changed, 6 insertions, 1 deletions
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 |