Fix bounds with ALLOCATE with source-expr