1! RUN: bbc %s -o - 2>&1 | FileCheck %s
2! RUN: %flang_fc1 -emit-fir %s -o - 2>&1 | FileCheck %s
3
4! CHECK: ignoring all compiler directives
5
6MODULE test_mod
7 CONTAINS
8 SUBROUTINE foo()
9 REAL :: var
10 !DIR$ VECTOR ALIGNED
11 var = 1.
12 END SUBROUTINE foo
13END MODULE test_mod
14