flang/test/Parser/recovery03.f90

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