Prosedür Pointer, Türetilmiş Tip

Question

aşağıdaki doesnt Intel Fortran XE 2011 yılında derleme:

TYPE type1 
    procedure(interface1),POINTER::p 
END TYPE type1 

ABSTRACT INTERFACE 
    integer function interface1(a) 
     real,intent(in)::a  
    END function interface1 
END INTERFACE 

hatası:

error #8262: The passed-object dummy argument must be dummy data object with the same declared type as the type being defined. 

Answer 1

prosedür işaretçi bileşeninin ilanına nopass niteliği ekleyin.

procedure(interface1), pointer, nopass :: p 

Düzenleme: Eğer pas anahtar sözcüğü kullanmak istiyorsanız yorumunuza yanıt olarak, arayüz gibi değiştirilmesi gerekir:

 
ABSTRACT INTERFACE 
    integer function interface1(passed_object, a) 
     import :: type1 
     class(type1), intent(...) :: passed_object 
     real,   intent(in) :: a 
    END function interface1 
END INTERFACE