| ! 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 |