! { dg-do compile }
! { dg-options "-fcoarray=lib" }
!
! Support for stat= in caf reference
!
program whitespace
  implicit none

  integer :: me[*],tmp,stat,i

  me = this_image()
  stat = 0
  i = 1

  sync all(stat = stat)

  if(stat /= 0) write(*,*) 'failure during sync'

  stat = 0

  if(me == 1) then
     tmp = me[num_images(),stat = stat]
     if(stat /= 0) write(*,*) 'failure in img:',me
  else if(me == 2) then
     tmp = me[i,stat=stat]
     if(stat /= 0) write(*,*) 'failure in img:',me
  endif

end program whitespace