http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48820
--- Comment #7 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-03-01 09:23:49 UTC --- Created attachment 26799 --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=26799 Patch for TYPE(*) Patch for TYPE(*). The patch should be feature complete (i.e. everything should work, including diagnostic), but is only very lightly tested. It also contains the run-time part of the RANK intrinsic - which is unreachable code as - for all currently supported expressions - the rank is known at compile time. [RANK() exists since GCC 4.7.] (RANK will become more useful with "DIMENSION(..)". Note that the run-time version currently fails for scalars - even if they have an array descriptor as coarray scalars do.)
