blob: 311ee0a2d874c3848faf97b0b3b76b406de0d860 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
!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
|
