2 ! PR 25031 - We didn't cause an error when allocating an already
7 integer, allocatable
:: a(:)
8 integer, pointer :: b(:)
11 ! This should set the stat code and change the size.
13 if (i
== 0) call abort
14 if (.not
. allocated(a
)) call abort
15 if (size(a
) /= 3) call abort
16 ! It's OK to allocate pointers twice (even though this causes