C'è qualcosa di sbagliato nel passare un array non allocato a una routine senza un'interfaccia esplicita?

Question

Considerare:

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 

qualcosa che non va con il codice di cui sopra? (Funziona con gfortran) Passo per la prima volta in un array non assegnato, ma non lo tocco - C'è qualcosa nello standard che potrebbe causare questo comportamento in modo dipendente dal sistema?

Answer 1

Hai quasi risposto alla tua domanda. Sì, secondo lo standard, è sempre illegale passare un array allocatable non allocato come argomento effettivo se non si dispone di un'interfaccia nell'ambito.

Se si dispone di un'interfaccia in ambito è legale solo se l'argomento dummy è anche allocabile.

E sì, sono stato morso da esso. Il mio lavoro è stato quello di allocare a zero dimensioni prima della chiamata.