------- Comment #6 from sfilippone at uniroma2 dot it 2010-08-27 14:40 -------
(In reply to comment #3)
end if
> class default
> call aa%mv_to_coo(actmp,info)
> if (info == psb_success_) then
> if (present(b)) then
> call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
> else
> call psb_rwextd(nr,actmp,info,rowscale=rowscale)
> end if
> end if
> if (info == psb_success_) call aa%mv_from_coo(actmp,info)
> end select
>
If however I change the code as follows:
select type(aa => a%a)
........
class default
call a%a%mv_to_coo(actmp,info)
.......
it compiles.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45420
