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