Bug 55849 - [OOP] Implement temporary support for SELECT TYPE(name => array ( [vector-subscript] ))
Summary: [OOP] Implement temporary support for SELECT TYPE(name => array ( [vector-sub...
Status: NEW
Alias: None
Product: gcc
Classification: Unclassified
Component: fortran (show other bugs)
Version: 4.8.0
: P3 normal
Target Milestone: ---
Assignee: Not yet assigned to anyone
Keywords: rejects-valid
Depends on:
Reported: 2013-01-02 21:53 UTC by Tobias Burnus
Modified: 2014-03-22 19:19 UTC (History)
0 users

See Also:
Known to work:
Known to fail:
Last reconfirmed: 2014-03-22 00:00:00


Note You need to log in before you can comment on or make changes to this bug.
Description Tobias Burnus 2013-01-02 21:53:59 UTC
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
  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
Comment 1 Dominique d'Humieres 2014-03-22 19:19:35 UTC
Still present at r208766.