Hi!
I'm testing some modification in my code and I found a problem with the generic interface definitions. In the next sample, the compiler consider ambigous the definition of the procedure, but are different types!
If someone can help me with this, or explain me what is wrong here, please.
[cpp]module types
implicit none
private
type t1_t
real(8) :: a
end type
type t2_t
integer :: a
end type
interface new
module procedure new_t1, new_t2
end interface
public:: t1_t, t2_t, new
contains
function new_t1()
type(t1_t), pointer :: new_t1
allocate(new_t1)
end function
function new_t2()
type(t2_t), pointer :: new_t2
allocate(new_t2)
end function
end module types
program test
use types
implicit none
type(t1_t), pointer :: t1
type(t2_t), pointer :: t2
t1 => new()
t2 => new()
end program test[/cpp]
I understand that the compiler should recognize each procedure, or not?
thanks!
