2 ! PR fortran/55314 - the second allocate statement was rejected.
8 integer(4), pointer :: mask(:)
10 type (comm_mask), allocatable, save :: encode(:,:)
12 allocate( encode(1:1,1:max_nb))
13 allocate( encode(1,1)%mask(1),encode(1,2)%mask(1))
14 deallocate( encode(1,1)%mask,encode(1,2)%mask)
15 allocate( encode(1,1)%mask(1),encode(1,1)%mask(1)) ! { dg-error "also appears at" }