1! { dg-do compile }
2! { dg-options "-fcoarray=lib" }
3!
4! Support for stat= in caf reference
5!
6program whitespace
7  implicit none
8
9  integer :: me[*],tmp,stat,i
10
11  me = this_image()
12  stat = 0
13  i = 1
14
15  sync all(stat = stat)
16
17  if(stat /= 0) write(*,*) 'failure during sync'
18
19  stat = 0
20
21  if(me == 1) then
22     tmp = me[num_images(),stat = stat]
23     if(stat /= 0) write(*,*) 'failure in img:',me
24  else if(me == 2) then
25     tmp = me[i,stat=stat]
26     if(stat /= 0) write(*,*) 'failure in img:',me
27  endif
28
29end program whitespace
30