OSDN Git Service

gcc/fortran/
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / coarray / sync_1.f90
1 ! { 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