[flang][openacc] Use OpenACC terminator instead of fir.unreachable after Stop stmt...
[llvm-project.git] / flang / test / Preprocessing / pp002.F
blob4faa9eef96d90ab494d58d1d1f2889065bd82c82
1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
2 ! CHECK: if (KWM .eq. 777) then
3 * #undef
4       integer, parameter :: KWM = 777
5 #define KWM 666
6 #undef KWM
7       if (KWM .eq. 777) then
8         print *, 'pp002.F yes'
9       else
10         print *, 'pp002.F no: ', KWM
11       end if
12       end