FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

decl.c (match_procedure_in_type): Changed misleading error message for not yet implemented PROCEDURE(interface)...

Browse source 
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
This commit is contained in:
Daniel Kraft 2008-09-21 17:24:55 +02:00 • committed by Daniel Kraft
parent e6c99067cb
commit 74a9b89764
4 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -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

3
gcc/fortran/decl.c
View file

@ -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;
}

5
gcc/testsuite/ChangeLog
View file

@ -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

2
gcc/testsuite/gfortran.dg/typebound_proc_4.f03
View file

@ -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