Program Bug implicit none real, allocatable, dimension(:) :: tab allocate(tab(1:10)) tab(:) = 1.0 call Buggy() deallocate(tab) contains Subroutine Buggy() print *, tab(11) End Subroutine Buggy End Program Bug