[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Preprocessing / pp019.F
blob2769e05e3dc9cb523c446afc4e98459fc280c288
1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
2 ! CHECK: res = ((666)+111)
3 * FLM rescan
4       integer function IFLM(x)
5         integer :: x
6         IFLM = x
7       end function IFLM
8       program main
9       integer, parameter :: KWM = 999
10 #define KWM 111
11 #define IFLM(x) ((x)+KWM)
12       integer :: res
13       res = IFLM(666)
14       if (res .eq. 777) then
15         print *, 'pp019.F yes'
16       else
17         print *, 'pp019.F no: ', res
18       end if
19       end