177   subroutine s12  subroutine
178     integer, pointer :: p(:)
179     type :: t  type
183     type(t), target :: x  local
184     type(t), target :: y(10,10)
185     integer :: v(10)
186     logical, parameter :: l1 = is_contiguous(x%a(:,:))
187     logical, parameter :: l2 = is_contiguous(y(1,1)%a(1,1))
189     logical, parameter :: l3 = is_contiguous(y(:,1)%a(1,1))
191     logical, parameter :: l4 = is_contiguous(x%a(:,v))
193     logical, parameter :: l5 = is_contiguous(y(v,1)%a(1,1))