F2003, sec. 4.5.1 (derived type definition): EXTENDS is an attribute that can not be specified more than once. Currently (20080803), gfortran accepts: TYPE :: b INTEGER :: i END TYPE TYPE, EXTENDS(b), EXTENDS(b) :: d INTEGER :: j END TYPE
Daniel, By golly, I never even thought of that possibility. Thanks! I'll fix it as obvious as soon as I can. Paul PS Could you please CC me next time? I do not have ove much time for hacking right now. I either do the business or follow Bugzilla:-(
> Could you please CC me next time? Thought I did, I Surely wanted to?! Please excuse the oversight :)
Subject: Bug 37011 Author: pault Date: Fri Aug 8 23:22:51 2008 New Revision: 138891 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=138891 Log: 2008-08-09 Paul Thomas <pault@gcc.gnu.org> PR fortran/37011 * symbol.c (gfc_add_extension): New function. * decl.c (gfc_get_type_attr_spec): Call it. (gfc_match_derived_decl): Set symbol extension attribute from attr.extension. * gfortran.h : Add prototype for gfc_add_extension. Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/decl.c trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/symbol.c
Fixed as obvious. Thanks for the report. Paul
No testcase?