[flang] Allocation should continue even if one of the allocate-object failed

[DanielCChen]

Consider the following code:

class(*), allocatable :: a(:), a1
integer :: stat
allocate(real:: a1)
allocate(real :: a1, a(2:4), stat=stat)
print*, allocated(a)
end

a1 is allocated multiple time, which will result an runtime error. However, the allocation of a should complete.

If I swap a1 and a in the 2nd allocate statement, a is allocated successfully.

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Daniel Chen (DanielCChen)

Consider the following code: ``` class(*), allocatable :: a(:), a1 integer :: stat allocate(real:: a1) allocate(real :: a1, a(2:4), stat=stat) print*, allocated(a) end ```

a1 is allocated multiple time, which will result an runtime error. However, the allocation of a should complete.

If I swap a1 and a in the 2nd allocate statement, a is allocated successfully.

[llvmbot]

@llvm/issue-subscribers-flang-runtime

Author: Daniel Chen (DanielCChen)

Consider the following code: ``` class(*), allocatable :: a(:), a1 integer :: stat allocate(real:: a1) allocate(real :: a1, a(2:4), stat=stat) print*, allocated(a) end ```

a1 is allocated multiple time, which will result an runtime error. However, the allocation of a should complete.

If I swap a1 and a in the 2nd allocate statement, a is allocated successfully.

[klausler]

We intentionally stop at the first error encountered in an allocate/deallocate statement with error recovery so that there is no ambiguity possible from multiple errors with distinct error codes. The program can use the allocated() intrinsic to determine which allocations or deallocations succeeded or failed.