1! { dg-do run } 2! { dg-options "-frepack-arrays" } 3! 4! Check that arrays marked with TARGET attribute are not repacked. 5! 6program test2 7 use iso_c_binding 8 implicit none 9 real, target :: x(7) 10 type(c_ptr) cp1, cp2 11 12 x = 42 13 if (.not. c_associated(c_loc(x(3)),point(x(::2)))) call abort 14contains 15 function point(x) 16 use iso_c_binding 17 real, intent(in), target :: x(:) 18 type(c_ptr) point 19 real, pointer :: p 20 21 p => x(2) 22 point = c_loc(p) 23 end function point 24end program test2 25