OSDN Git Service

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