------- Comment #3 from burnus at gcc dot gnu dot org 2010-07-13 17:48 ------- (In reply to comment #2) > a) TYPE(REAL) / TYPE(REAL_TYPE) is allowed, one probably can borrow the code > from there.
Thinking of it again, the simplest seems to be to copy from decl.c's gfc_match_decl_type_spec everything after "matched_type = (m == MATCH_YES);" to "if (matched_type)" into a separate function -- and call it then from both the reminder of gfc_match_decl_type_spec and from match.c's match_type_spec. I think fixing match_type_spec is difficult as also "real(8)" needs to be handled - or later also "real_type(kind=8,n=8,m=7)" (i.e. derived type parameters) - thus one should combine the logic at one place. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44929
