[Bug fortran/52729] Symbol has no implicit type in SELECT TYPE block
burnus at gcc dot gnu.org
gcc-bugzilla@gcc.gnu.org
Mon Apr 2 09:54:00 GMT 2012
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
More information about the Gcc-bugs
mailing list