This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/41600] [OOP] SELECT TYPE with associate-name => exp: Arrays not supported
- From: "pault at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Mon, 05 Mar 2012 14:02:56 +0000
- Subject: [Bug fortran/41600] [OOP] SELECT TYPE with associate-name => exp: Arrays not supported
- Auto-submitted: auto-generated
- References: <bug-41600-4@http.gcc.gnu.org/bugzilla/>
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