| !RUN: %flang_fc1 -E %s | FileCheck --check-prefix=PREPRO %s |
| !RUN: %flang_fc1 -fdebug-unparse %s | FileCheck --check-prefix=NORMAL %s |
| !RUN: %flang_fc1 -fopenmp -fdebug-unparse %s | FileCheck --check-prefix=OMP %s |
| |
| c$ ! |
| |
| C$ |
| continue |
| |
| k=0 w |
| k=0 |
| c$ 0 x |
| c$ 1 y |
| c$ 2 k= z |
| c$ ! A |
| c$ !1 B |
| print *,k |
| *$1 continue |
| end |
| |
| !PREPRO: continue |
| !PREPRO: k=0 |
| !PREPRO: k=0 |
| !PREPRO:!$ |
| !PREPRO:!$ & |
| !PREPRO:!$ &k= |
| !PREPRO:!$ & |
| !PREPRO:!$ &1 |
| !PREPRO: print *,k |
| !PREPRO:!$ 1 continue |
| !PREPRO: end |
| |
| !NORMAL: k=0_4 |
| !NORMAL: k=0_4 |
| !NORMAL: PRINT *, k |
| !NORMAL:END PROGRAM |
| |
| !OMP: CONTINUE |
| !OMP: k=0_4 |
| !OMP: k=0_4 |
| !OMP: k=1_4 |
| !OMP: PRINT *, k |
| !OMP: 1 CONTINUE |
| !OMP:END PROGRAM |