2 ! { dg-options "-fdump-tree-original -fcoarray=single" }
4 j1
= this_image(distance
=4)
8 k3
= num_images(distance
=7)
9 k4
= num_images(distance
=8, failed
=.true
.)
10 k5
= num_images(failed
=.false
.)
13 ! { dg-final { scan-tree-dump-times "j1 = 1;" 1 "original" } }
14 ! { dg-final { scan-tree-dump-times "j2 = 1;" 1 "original" } }
15 ! { dg-final { scan-tree-dump-times "k1 = 1;" 1 "original" } }
16 ! { dg-final { scan-tree-dump-times "k2 = 1;" 1 "original" } }
17 ! { dg-final { scan-tree-dump-times "k3 = 1;" 1 "original" } }
18 ! { dg-final { scan-tree-dump-times "k4 = 0;" 1 "original" } }
19 ! { dg-final { scan-tree-dump-times "k5 = 1;" 1 "original" } }