111
|
1 ! { dg-do run }
|
|
2 ! { dg-options "-fcoarray=single" }
|
|
3 ! { dg-shouldfail "error stop" }
|
|
4 !
|
|
5 ! Coarray support
|
|
6 ! PR fortran/18918
|
|
7
|
|
8 implicit none
|
|
9 integer :: n
|
|
10 character(len=30) :: str
|
|
11 critical
|
|
12 end critical
|
|
13 myCr: critical
|
|
14 end critical myCr
|
|
15 sync all
|
|
16 sync all ( )
|
|
17 n = 5
|
|
18 sync all (stat=n)
|
131
|
19 if (n /= 0) STOP 1
|
111
|
20 n = 5
|
|
21 sync all (stat=n,errmsg=str)
|
131
|
22 if (n /= 0) STOP 2
|
111
|
23 sync all (errmsg=str)
|
|
24
|
|
25 sync memory
|
|
26 sync memory ( )
|
|
27 n = 5
|
|
28 sync memory (stat=n)
|
131
|
29 if (n /= 0) STOP 3
|
111
|
30 n = 5
|
|
31 sync memory (errmsg=str,stat=n)
|
131
|
32 if (n /= 0) STOP 4
|
111
|
33 sync memory (errmsg=str)
|
|
34
|
|
35 sync images (*, stat=n)
|
|
36 sync images (1, errmsg=str)
|
|
37 sync images ([1],errmsg=str,stat=n)
|
|
38
|
|
39 sync images (*)
|
|
40 sync images (1)
|
|
41 sync images ([1])
|
|
42
|
131
|
43 if (num_images() /= 1) STOP 5
|
111
|
44 error stop 'stop'
|
|
45 end
|
|
46
|
|
47 ! { dg-output "ERROR STOP stop" }
|