1! { dg-additional-options "-fdump-tree-original -Wunused-variable" }
2      implicit none
3      integer :: a,b,c,d,e,f,g,h,i,j,k,ll
4
5c$bogus
6!$bogus
7*$bogus
8
9c$ bogus
10!$ bogus
11*$ bogus
12
13c$a23 bogus
14!$ a  bogus
15*$12a bogus
16
17! The following should be parsed as OpenMP conditional sentinel
18! If not, expect a unused-variable warning
19
20c$    a = 1
21!$    b = 2
22*$    c = 3
23
24c$ 1  d = 4
25!$ 22 e = 5
26*$34  f = 6
27
28c$    g =
29c$   *7
30!$ 2  h =
31*$   & 8
32*$ 3  i
33!$   & = 9
34
35c$    j
36*$   &=
37c$   *10
38!$ 5  k
39*$   * =
40c$   & 1
41*$   & 1
42*$9 9 ll
43!$   & =
44!$   *  12
45
46c$ bogus
47!$ bogus
48*$ bogus
49
50c$bogus
51!$bogus
52*$bogus
53
54c$ acc bogus
55!$ acc bogus
56*$ acc bogus
57
58c$ omp bogus
59!$ omp bogus
60*$ omp bogus
61      end
62
63!{ dg-final { scan-tree-dump-times "a = 1;" 1 "original" } }
64!{ dg-final { scan-tree-dump-times "b = 2;" 1 "original" } }
65!{ dg-final { scan-tree-dump-times "c = 3;" 1 "original" } }
66!{ dg-final { scan-tree-dump-times "d = 4;" 1 "original" } }
67!{ dg-final { scan-tree-dump-times "e = 5;" 1 "original" } }
68!{ dg-final { scan-tree-dump-times "f = 6;" 1 "original" } }
69!{ dg-final { scan-tree-dump-times "g = 7;" 1 "original" } }
70!{ dg-final { scan-tree-dump-times "h = 8;" 1 "original" } }
71!{ dg-final { scan-tree-dump-times "i = 9;" 1 "original" } }
72!{ dg-final { scan-tree-dump-times "j = 10;" 1 "original" } }
73!{ dg-final { scan-tree-dump-times "k = 11;" 1 "original" } }
74!{ dg-final { scan-tree-dump-times "ll = 12;" 1 "original" } }
75!{ dg-final { scan-tree-dump-times "__label_000001:;" 1 "original" } }
76!{ dg-final { scan-tree-dump-times "__label_000022:;" 1 "original" } }
77!{ dg-final { scan-tree-dump-times "__label_000034:;" 1 "original" } }
78!{ dg-final { scan-tree-dump-times "__label_000002:;" 1 "original" } }
79!{ dg-final { scan-tree-dump-times "__label_000003:;" 1 "original" } }
80!{ dg-final { scan-tree-dump-times "__label_000005:;" 1 "original" } }
81!{ dg-final { scan-tree-dump-times "__label_000099:;" 1 "original" } }
82