This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/55199] [OOP] Equivalenced variable has wrong type when used with generic member function
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Sun, 04 Nov 2012 11:23:28 +0000
- Subject: [Bug fortran/55199] [OOP] Equivalenced variable has wrong type when used with generic member function
- Auto-submitted: auto-generated
- References: <bug-55199-4@http.gcc.gnu.org/bugzilla/>
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55199
--- Comment #2 from janus at gcc dot gnu.org 2012-11-04 11:23:28 UTC ---
Further compactified version of the test case:
module assoc_err_m
implicit none
type :: foo_t
contains
procedure :: func_1
generic :: func => func_1
end type
contains
real function func_1 (this)
class(foo_t), intent(in) :: this
end function
end module
program assoc_err
use assoc_err_m
implicit none
type(foo_t) :: f
associate(b => f%func())
print *, 1. + b
end associate
end program