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: unassig...@gcc.gnu.org
ReportedBy: bur...@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
