1! { dg-do run } 2 3! Contributed by Damian Rouson 4! Same like coarray/alloc_comp_4 5 6program main 7 8 implicit none 9 10 type mytype 11 integer, pointer :: indices(:) 12 end type 13 14 type(mytype), save :: object[*] 15 integer :: me 16 17 me=this_image() 18 allocate(object%indices(me)) 19 object%indices = 42 20 21 if ( any( object[me]%indices(:) /= 42 ) ) STOP 1 22end program 23