क्या एक स्पष्ट इंटरफ़ेस के बिना एक नियमित रूप से एक आवंटित सरणी को पार करने में कुछ गड़बड़ है?

Question

पर विचार करें:

program main 
real, allocatable, dimension(:) :: foo 
integer n 
n=10 
call dofoo(foo,n,1) 
allocate(foo(n)) 
call dofoo(foo,n,0) 
end program main 

subroutine dofoo(foo,n,mode) 
real foo(n) 
integer i,n,mode 
if(mode.eq.1)then 
    n=6 
    return 
endif 
do i=1,n 
    foo(i)=i 
enddo 
return 
end subroutine dofoo 

क्या इसके बाद के संस्करण कोड के साथ गलत है? (यह gfortran के साथ काम करता है) मैं पहली बार एक गैर आवंटित सरणी में गुजरता हूं, लेकिन मैं इसे छूता नहीं - क्या मानक में कुछ भी है जो इसे सिस्टम पर निर्भर तरीके से व्यवहार कर सकता है?

Answer 1

आपने लगभग अपने प्रश्न का उत्तर दिया है। हां, मानक के अनुसार, यदि आपके पास दायरे में कोई इंटरफ़ेस नहीं है तो एक गैर-आवंटित आवंटनीय सरणी को वास्तविक तर्क के रूप में पारित करना हमेशा गैरकानूनी होता है।

यदि आपके पास दायरे में एक इंटरफ़ेस है तो यह केवल कानूनी है यदि डमी तर्क भी आवंटित है।

और हाँ मुझे इसकाट दिया गया है। मेरे काम को कॉल से पहले शून्य आकार में आवंटित किया गया है।