1! Test printpreprocessed action
2
3! REQUIRES: new-flang-driver
4
5!--------------------------
6! FLANG DRIVER (flang-new)
7!--------------------------
8! RUN: %flang-new -E %s  2>&1 | FileCheck %s
9
10!-----------------------------------------
11!   FRONTEND FLANG DRIVER (flang-new -fc1)
12!-----------------------------------------
13! RUN: %flang-new -fc1 -E %s  2>&1 | FileCheck %s
14
15
16!-----------------------
17! EXPECTED OUTPUT
18!-----------------------
19! flang-new -E  %s
20! CHECK:program a
21! CHECK-NOT:program b
22! CHECK-NEXT:x = 1
23! CHECK-NEXT:write(*,*) x
24! CHECK-NEXT:end
25
26! Preprocessed-file.F:
27#define NEW
28#ifdef NEW
29  program A
30#else
31  program B
32#endif
33    x = 1
34    write(*,*) x
35  end
36