1! { dg-do compile } 2! PR fortran/55314 - the second allocate statement was rejected. 3 4program main 5 implicit none 6 integer :: max_nb 7 type comm_mask 8 integer(4), pointer :: mask(:) 9 end type comm_mask 10 type (comm_mask), allocatable, save :: encode(:,:) 11 max_nb=2 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" } 16end program main 17