------- Comment #1 from janus at gcc dot gnu dot org  2010-09-08 09:49 -------
This problem is apparently related to type extension (but not to abstract
types). The following still fails:

   implicit none

   type :: pointGen
   end type pointGen

   type, extends(pointGen) :: point2d
      real :: x,y
   end type

   type(point2d) :: myPoint

   myPoint = point2d(2.3, 4.2)    ! The problem is here
   myPoint = point2d(x=2.3,y=4.2) ! ok with that

end


It works when removing the EXTENDS clause.


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-09-08 09:49:09
               date|                            |
            Summary|[OOP] Valid structure       |[F03] Valid structure
                   |constructor rejected        |constructor rejected for
                   |                            |extended types


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45592

Reply via email to