2 ! { dg-options "-fcoarray=lib" }
4 ! Support for stat= in caf reference
9 integer :: me
[*],tmp
,stat
,i
17 if(stat
/= 0) write(*,*) 'failure during sync'
22 tmp
= me
[num_images(),stat
= stat
]
23 if(stat
/= 0) write(*,*) 'failure in img:',me
26 if(stat
/= 0) write(*,*) 'failure in img:',me
29 end program whitespace