blob: aa790b996ef0da2da32c35c24c4c549c2563d98e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
! { 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
|
