[clang][test] Fix SemaCXX/msvc-pragma-function-no-builtin-attr.cpp for x86 (#119986)
[llvm-project.git] / flang / test / Preprocessing / pp024.F
blob6316fec49b591935391ab6c6cef06ab920721030
1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
2 ! CHECK: 100   format(3HKWM)
3 ! CHECK: if (ch .eq. 'KWM') then
4 * KWM NOT expanded in Hollerith in FORMAT
5 #define KWM 666
6 #define HKWM 667
7       character(len=3) :: ch
8  100  format(3HKWM)
9       write(ch, 100)
10       if (ch .eq. 'KWM') then
11         print *, 'pp024.F yes'
12       else
13         print *, 'pp024.F no: ', ch
14       end if
15       end