! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
!CHECK: warning: Unrecognized compiler directive was ignored
!DIR$ Not a recognized directive
program main
contains
!CHECK: warning: Compiler directive ignored here
!DIR$ not in a subprogram
subroutine s
end
end