!RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema %s 2>&1 | FileCheck %s
;
! CHECK: Program -> ProgramUnit -> CompilerDirective
!DIR$ unknown_directive empty statement
;
! CHECK: ProgramUnit -> MainProgram
program semicolon; end;
! CHECK: ProgramUnit -> CompilerDirective
    !DIR$ unknown_directive leading space
! CHECK: ProgramUnit -> CompilerDirective
;   !DIR$ unknown_directive leading empty statement