pp036.F 293 Bytes
! RUN: %f18 -E %s 2>&1 | FileCheck %s
! CHECK: if(.true.)then
! CHECK: print*,'pp036.F no: ',.true.
* #define FALSE TRUE ...  .FALSE. -> .TRUE.
#define FALSE TRUE
      if (.FALSE.) then
        print *, 'pp036.F yes'
      else
        print *, 'pp036.F no: ', .FALSE.
      end if
      end