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