1! { dg-do compile { target { ! *-*-* } } }
2! SKIP THIS FILE
3!
4! Used by codimension_2.f90
5!
6! Check that the coarray declared in the module is accessible
7! by doing a link test
8!
9! Contributed by Alessandro Fanfarillo.
10!
11program testmod
12  use global_coarrays
13  implicit none
14  external ttest
15
16  integer :: me
17
18  me = this_image()
19
20  b = me
21
22  if(me==1) then
23     b(:) = b(:)[2]
24     write(*,*) b
25  elseif (me == 3) then
26     call ttest()
27  end if
28
29end program testmod
30