Có điều gì sai khi chuyển một mảng chưa được phân bổ đến một thường trình không có giao diện rõ ràng không?

Question

xem xét:

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 

Có gì không ổn với đoạn code trên? (Nó hoạt động với gfortran) Tôi vượt qua trong một mảng không được phân bổ lần đầu tiên, nhưng tôi không chạm vào nó - Có bất cứ điều gì trong tiêu chuẩn có thể gây ra điều này để hành xử một cách phụ thuộc vào hệ thống?

Answer 1

Bạn gần như đã trả lời câu hỏi của riêng bạn. Có, theo tiêu chuẩn, nó luôn luôn là bất hợp pháp để vượt qua một mảng phân bổ unallocated như một đối số thực tế nếu bạn không có một giao diện trong phạm vi.

Nếu bạn có giao diện trong phạm vi, nó chỉ hợp pháp nếu đối số giả cũng có thể phân bổ.

Và vâng tôi đã bị nó cắn. Công việc của tôi xung quanh đã được phân bổ cho kích thước bằng không trước cuộc gọi.