blob: 9eed860ea5731ca26fdafeb0a6885ff5b136c022 (
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
|
! { dg-do run }
! { dg-options "-fcoarray=lib -lcaf_single" }
! { dg-additional-options "-latomic" { target libatomic_available } }
!
! Support for stat= in caf reference
!
program whitespace
implicit none
integer :: me[*],tmp,stat
me = this_image()
stat = 0
sync all(stat = stat)
if(stat /= 0) write(*,*) 'failure during sync'
stat = 42
tmp = me[num_images(),stat = stat]
if(stat /= 0) call abort()
end program whitespace
|