[OOP] SELECT TYPE with CLASS IS

[Janus Weil]

> I successfully checked the patch for regressions. Do you guys have any
> comments or suggestions, or is it okay if I commit to fortran-dev?
> (Will write a ChangeLog and dejagnuify my test case soonish.)

Here you go. Enjoy :)

Cheers,
Janus


2009-11-09  Janus Weil  <janus@gcc.gnu.org>

	* decl.c (gfc_match_derived_decl): Set extension level.
	* gfortran.h (symbol_attribute): Expand 'extension' bitfield to 8 bit.
	* iresolve.c (gfc_resolve_extends_type_of): Return value of
	'is_extension_of' has kind=4.
	* match.c (select_type_set_tmp,gfc_match_class_is): Create temporary
	for CLASS IS blocks.
	* module.c (ab_attribute,attr_bits): Remove AB_EXTENSION.
	(mio_symbol_attribute): Handle expanded 'extension' field.
	* resolve.c (resolve_select_type): Implement CLASS IS blocks.
	(resolve_fl_variable_derived): Show correct type name.
	* symbol.c (gfc_build_class_symbol): Set extension level.


2009-11-09  Janus Weil  <janus@gcc.gnu.org>

	* gfortran.dg/extends_type_of_1.f03: Fix invalid test case.
	* gfortran.dg/module_md5_1.f90: Adjusted MD5 sum.
	* gfortran.dg/select_type_1.f03: Remove FIXMEs.
	* gfortran.dg/select_type_2.f03: Ditto.
	* gfortran.dg/select_type_8.f03: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: select_type_8.f03
Type: application/octet-stream
Size: 1346 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20091111/da11106c/attachment.obj>