[Bug fortran/40824] New: F2003: GENERIC interface with generic name = derived-type name

[burnus at gcc dot gnu dot org]

Cf. http://groups.google.com/group/comp.lang.fortran/msg/3ff093de4ed9e7c0

The following program is valid as F2003 has:

"12.3.2.1 Interface block
"A generic name may be the same as a derived-type name, in which case all of
the procedures in the interface block shall be functions."

Currently, it is rejected with:

Error: DERIVED attribute of 'foo' conflicts with PROCEDURE attribute at (1)


module foobar
  implicit none
  type foo
    integer :: bar
  end type

  interface foo
    module procedure constructor
  end interface

contains
  type(foo) function constructor()
     constructor%bar=1
  end function
end module


-- 
           Summary: F2003: GENERIC interface with generic name = derived-
                    type name
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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