[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Preprocessing / pp105.F90
blobb4f73da6fa24c07061919f9f5b1ab129fa0797b1
1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
2 ! CHECK: res = 777
3 ! KWM call name split across continuation, with leading &
4       integer, parameter :: KWM = 666
5 #define KWM 777
6       integer :: res
7       res = KW&
8 &M
9       if (res .eq. 777) then
10         print *, 'pp105.F90 yes'
11       else
12         print *, 'pp105.F90 no: ', res
13       end if
14       end