[OOP] SELECT TYPE with CLASS IS

[Dominique Dhumieres]

Hi Janus,

I have applied your patch in http://gcc.gnu.org/ml/fortran/2009-11/msg00103.html
on top of revision 154007 along with the two other required patches
revision 153804 in fortran-dev and http://gcc.gnu.org/ml/fortran/2009-11/msg00070.html.

Now class_is.f90 compiles but gives different results in 32 and 64 bit modes:

[ibook-dhum] f90/bug% gfc -m32 class_is.f90
[ibook-dhum] f90/bug% a.out
           4
           1
           1
ibook-dhum] f90/bug% gfc -m64 class_is.f90
[ibook-dhum] f90/bug% a.out 
           3
           1
           4

Cheers

Dominique

PS done on i686-apple-darwin9