10 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2! CHECK: error: misplaced declaration in the execution part3! CHECK: real, pointer :: p2(:,:)4! CHECK: in the context: execution part construct5real, allocatable, target :: a2(:,:)6allocate(a2(2:11,0:9))7real, pointer :: p2(:,:)8p2 => a2(2:3,1:2)9end10