[OOP] SELECT TYPE with CLASS IS

[Salvatore Filippone]

Paul,
I tried (in a rather careless fashion) to apply the patch to the
fortran-dev branch, but it does not apply cleanly and bootstrap is
broken, presumably because of it, with a bunch of errors in resolve.c.
../../gcc-dev/gcc/fortran/resolve.c: In function ‘resolve_compcall’:
../../gcc-dev/gcc/fortran/resolve.c:5093:10: error: ‘fcn’ undeclared (first use in this function)
../../gcc-dev/gcc/fortran/resolve.c:5093:10: error: (Each undeclared identifier is reported only once
../../gcc-dev/gcc/fortran/resolve.c:5093:10: error: for each function it appears in.)
cc1: warnings being treated as errors
../../gcc-dev/gcc/fortran/resolve.c: In function ‘check_class_members’:
../../gcc-dev/gcc/fortran/resolve.c:5166:3: error: passing argument 2 of ‘resolve_compcall’ makes pointer from integer without a cast
../../gcc-dev/gcc/fortran/resolve.c:5044:1: note: expected ‘const char **’ but argument is of type ‘unsigned char’
../../gcc-dev/gcc/fortran/resolve.c:5172:36: error: ‘struct <anonymous>’ has no member named ‘class_esym’
........


Is there anything obvious I am missing, or should I just wait a little
bit more? 

Thanks
Salvatore