This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/55849] New: [OOP] Implement temporary support for SELECT TYPE(name => array ( [vector-subscript] ))
- From: "burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 02 Jan 2013 21:53:59 +0000
- Subject: [Bug fortran/55849] New: [OOP] Implement temporary support for SELECT TYPE(name => array ( [vector-subscript] ))
- Auto-submitted: auto-generated
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55849
Bug #: 55849
Summary: [OOP] Implement temporary support for SELECT TYPE(name
=> array ( [vector-subscript] ))
Classification: Unclassified
Product: gcc
Version: 4.8.0
Status: UNCONFIRMED
Keywords: rejects-valid
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned@gcc.gnu.org
ReportedBy: burnus@gcc.gnu.org
>From http://gcc.gnu.org/ml/fortran/2013-01/msg00004.html. The following program
fails with:
Error: CLASS selector at (1) needs a temporary which is not yet implemented
module gn
type :: ncb
end type ncb
type, public :: tn
class(ncb), allocatable, dimension(:) :: cb
end type tn
contains
integer function name(self)
implicit none
class (tn), intent(in) :: self
select type (component => self%cb([4,7+1]))
end select
end function name
end module gn