[Bug fortran/42207] [OOP] Compile-time errors on typed allocation and pointer function result assignment

[janus at gcc dot gnu dot org]

------- Comment #4 from janus at gcc dot gnu dot org  2009-11-29 12:31 -------
(In reply to comment #2)
> On darwin, the errors appear only in 32 bit mode.

Yes, I can confirm this on x86_64-apple-darwin10.2.0. Also, I just ran the
fortran testsuite for the fortran-dev branch on darwin, but saw no failures.

Here is a reduced test case:


module m

  implicit none

  type foo 
  end type

  type ,extends(foo) :: bar
  end type

contains

  function new_bar()
    class(foo) ,pointer :: new_bar
    allocate(bar :: new_bar) 
  end function

end module


Important: This only happens inside a module. If I remove the "module m/end
module" in the example, the error goes away.


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2009-11-29 12:31:41
               date|                            |
            Summary|Compile-time errors on typed|[OOP] Compile-time errors on
                   |allocation and pointer      |typed allocation and pointer
                   |function result assignment  |function result assignment


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