Re: [OOP] SELECT TYPE with CLASS IS

["Rouson, Damian" <rouson at sandia dot gov>]

Janus,

Great work -- I remain very excited about the increasing OOP support in
gfortran.

I have code that uses CLASS IS and will be glad to do some testing once I
resolve my issues with building the code.  The two most convenient platforms
for me are Mac OS X and AIX, but I have trouble building on both of those.
Probably I should try doing it inside a Linux virtual machine. That would
make things a bit slow, but would presumably put me much more in the
mainstream.  I'll let you know if I get a chance to do that.

Damian


On 11/7/09 2:20 PM, "Janus Weil" <janus@gcc.gnu.org> wrote:

> Hi folks,
> 
> here is an early shot at CLASS IS. As announced before, my
> implementation uses the library function "is_extension_of" that I
> introduced with the EXTENDS_TYPE_OF patch and translates the CLASS IS
> cases into a chain of IF/ELSE IF statements (you can have a look at
> the dump for the attached test case to see an example of the code it
> generates). The patch is not quite complete yet, since CLASS IS cases
> are not being sorted if they're in the wrong order. But apart from
> this, most things should work already. In particular the following
> cases:
> 
>  * SELECT TYPE statements with only one CLASS IS branch
>  * those cases where the CLASS IS labels are not extensions of each other, or
>  * cases where the CLASS IS labels are sorted in the right way
> manually (i.e. extensions before their parents)
> 
> If anyone wants to try it out or have a look at the patch, that would
> be great (the patch has to be applied to the fortran-dev branch, btw).
> I'll try to get the sorting right soon.
> 
> Salvatore, do you have a version of your code which includes CLASS IS
> cases? If yes, can you try the patch on it, or alternatively send your
> code to me, so that I can try it? [Without the sorting, the runtime
> behaviour can potentially be wrong, but hopefully there should be no
> compile-time problems.]
> 
> Cheers,
> Janus
>