xref: /llvm-project/flang/test/Preprocessing/pp036.F (revision 3338ef93b02837edf69abc203e15a42fa55aa1b3) 
11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s
2*3338ef93Speter klausler! CHECK: if (.TRUE .) then
3*3338ef93Speter klausler! CHECK: print *, 'pp036.F no: ', .TRUE .
464ab3302SCarolineConcatto* #define FALSE TRUE ...  .FALSE. -> .TRUE.
564ab3302SCarolineConcatto#define FALSE TRUE
664ab3302SCarolineConcatto      if (.FALSE.) then
7089adc33Speter klausler        print *, 'pp036.F yes'
864ab3302SCarolineConcatto      else
9089adc33Speter klausler        print *, 'pp036.F no: ', .FALSE.
1064ab3302SCarolineConcatto      end if
1164ab3302SCarolineConcatto      end
12