3 ! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>,
4 ! Andre Vehreschild <vehre@gcc.gnu.org>
9 integer, allocatable :: acc(:)
19 allocate(o1%acc, source=vec)
20 allocate(o2%acc, source=o1%acc(lb:ub))
21 if (any (o2%acc /= [7, 8, 9])) call abort()
23 real, dimension(0:n) :: a
24 real, dimension(:), allocatable :: c
26 allocate(c,source=a(:))
27 if (any (abs(a - c) > 1E-6)) call abort()