blob: aa790b996ef0da2da32c35c24c4c549c2563d98e [file] [log] [blame]
! { 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