[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Driver / cpp-nocpp-predefined-macro.F90
blob57ea74b444092682784076a89052998eb4293965
1 !-----------
2 ! RUN lines
3 !-----------
4 ! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s --check-prefix=DEFINED
5 ! RUN: %flang_fc1 -E -cpp %s 2>&1 | FileCheck %s --check-prefix=DEFINED
6 ! RUN: %flang_fc1 -E -nocpp %s 2>&1 | FileCheck %s --check-prefix=NOT_DEFINED
8 ! DEFINED: flang = 1
9 ! DEFINED-NEXT: flang_major = {{[1-9][0-9]*$}}
11 ! NOT_DEFINED: flang = __flang__
12 ! NOT_DEFINED-NEXT: flang_major = __flang_major__
14 integer, parameter :: flang = __flang__
15 integer, parameter :: flang_major = __flang_major__