प्रक्रिया सूचक, व्युत्पन्न प्रकार

Question

निम्नलिखित does not को इंटेल फोरट्रान XE 2011 में संकलन:

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

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

त्रुटि:

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

Answer 1

प्रक्रिया सूचक घटक की घोषणा करने के nopass विशेषता जोड़ें।

procedure(interface1), pointer, nopass :: p 

संपादित करें: अपनी टिप्पणी के जवाब में, आप पास कीवर्ड का उपयोग करना चाहते हैं, इंटरफ़ेस जैसे बदल करना होगा:

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