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