! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
! CHECK: error: misplaced declaration in the execution part
! CHECK:  real, pointer :: p2(:,:)
! CHECK: in the context: execution part construct
real, allocatable, target :: a2(:,:)
allocate(a2(2:11,0:9))
real, pointer :: p2(:,:)
p2 => a2(2:3,1:2)
end