[Bug fortran/52729] Symbol has no implicit type in SELECT TYPE block

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2012-04-02
                 CC|                            |burnus at gcc dot gnu.org
     Ever Confirmed|0                           |1

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-04-02 
09:54:32 UTC ---
That's an odd issue.

The problem only occurs if one has a BLOCK (or the SELECT TYPE or ASSOCIATE
constructs which use it internally).

At the same time, one needs to have the function on the LHS of both a procedure
call and a proc-pointer assignment.

I think that one somewhere only looks as the namespace and its parent
("ns->parent") instead of walking higher up.


Reduced example:

module testMod
  implicit none
contains
  subroutine testSub()
    procedure(double precision ), pointer :: r
    double precision                      :: testVal

    block
      testVal=testFunc()
      r => testFunc
    end block
  end subroutine testSub

  double precision function testFunc()
  end function testFunc
end module testMod