URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [coarray/] [sync_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do run }
!
! Coarray support
! PR fortran/18918
 
implicit none
integer :: n
character(len=30) :: str
critical
end critical
myCr: critical
end critical myCr
 
!
! Test SYNC ALL
!
sync all
sync all ( )
sync all (errmsg=str)
 
n = 5
sync all (stat=n)
if (n /= 0) call abort()
 
n = 5
sync all (stat=n,errmsg=str)
if (n /= 0) call abort()
 
 
!
! Test SYNC MEMORY
!
sync memory
sync memory ( )
sync memory (errmsg=str)
 
n = 5
sync memory (stat=n)
if (n /= 0) call abort()
 
n = 5
sync memory (errmsg=str,stat=n)
if (n /= 0) call abort()
 
 
!
! Test SYNC IMAGES
!
sync images (*)
if (this_image() == 1) then
    sync images (1)
    sync images (1, errmsg=str)
    sync images ([1])
end if
 
n = 5
sync images (*, stat=n)
if (n /= 0) call abort()
 
n = 5
sync images (*,errmsg=str,stat=n)
if (n /= 0) call abort()
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! Coarray support`
4			`! PR fortran/18918`
5
6			`implicit none`
7			`integer :: n`
8			`character(len=30) :: str`
9			`critical`
10			`end critical`
11			`myCr: critical`
12			`end critical myCr`
13
14			`!`
15			`! Test SYNC ALL`
16			`!`
17			`sync all`
18			`sync all ( )`
19			`sync all (errmsg=str)`
20
21			`n = 5`
22			`sync all (stat=n)`
23			`if (n /= 0) call abort()`
24
25			`n = 5`
26			`sync all (stat=n,errmsg=str)`
27			`if (n /= 0) call abort()`
28
29
30			`!`
31			`! Test SYNC MEMORY`
32			`!`
33			`sync memory`
34			`sync memory ( )`
35			`sync memory (errmsg=str)`
36
37			`n = 5`
38			`sync memory (stat=n)`
39			`if (n /= 0) call abort()`
40
41			`n = 5`
42			`sync memory (errmsg=str,stat=n)`
43			`if (n /= 0) call abort()`
44
45
46			`!`
47			`! Test SYNC IMAGES`
48			`!`
49			`sync images (*)`
50			`if (this_image() == 1) then`
51			`sync images (1)`
52			`sync images (1, errmsg=str)`
53			`sync images ([1])`
54			`end if`
55
56			`n = 5`
57			`sync images (*, stat=n)`
58			`if (n /= 0) call abort()`
59
60			`n = 5`
61			`sync images (*,errmsg=str,stat=n)`
62			`if (n /= 0) call abort()`
63
64			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [coarray/] [sync_1.f90] - Blame information for rev 694