http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41600
Paul Thomas <pault at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |pault at gcc dot gnu.org
AssignedTo|unassigned at gcc dot |pault at gcc dot gnu.org
|gnu.org |
--- Comment #10 from Paul Thomas <pault at gcc dot gnu.org> 2012-03-05 14:02:56
UTC ---
I have a substantially complete fix for this PR. It fixes the original
testcase but is still failing on one or two corner cases:
(i) Whilst SELECT TYPE (bar => m%foo(1:2)) is OK, the offset is wrong for
SELECT TYPE (bar => m%foo(3:2:-1))
(ii) I have had to put some work into getting CLASS is to work. For some
reason, whilst
CLASS IS (t1)
print *, bar%i
or
print *, bar%j
work fine,
if (any (bar%j .ne. [4,5,6]) call abort
does not (same for bar%i).
Something goes wrong in the argument evaluation for the call to ANY.
I suspect that there is another few days work in this one.
Cheers
Paul
