[Bug fortran/41648] New: [OOP] Type-bound procedures refused

["sfilippone at uniroma2 dot it" <gcc-bugzilla at gcc dot gnu dot org>]

The attached code is not compiled correctly; gfortran accepts the subroutine
but not the function. NAG 5.2 compiles cleanly. 

[sfilippo@localhost bug4]$ gfortran -v 
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/home/local/gnu45/bin/../libexec/gcc/i686-pc-linux-gnu/4.5.0/lto-wrapper
Target: i686-pc-linux-gnu
Configured with: ../gcc/configure --prefix=/usr/local/gnu45
--enable-languages=c,c++,fortran
Thread model: posix
gcc version 4.5.0 20091009 (experimental) (GCC) 
[sfilippo@localhost bug4]$ gfortran -c test-der4.f03 
test-der4.f03:45.10:

    res = a%a%getit()
          1
Error: Function 'getit' at (1) cannot be called recursively, as it is not
RECURSIVE


-- 
           Summary: [OOP] Type-bound procedures refused
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: sfilippone at uniroma2 dot it
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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