[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Lower / compiler-directive.f90
blob72d85ba5159a2493215fa1dec4c7c472d569d7e7
1 ! RUN: bbc %s -o - 2>&1 | FileCheck %s
2 ! RUN: %flang_fc1 -emit-fir %s -o - 2>&1 | FileCheck %s
4 ! CHECK: ignoring all compiler directives
6 MODULE test_mod
7 CONTAINS
8 SUBROUTINE foo()
9 REAL :: var
10 !DIR$ VECTOR ALIGNED
11 var = 1.
12 END SUBROUTINE foo
13 END MODULE test_mod