! Copyright (c) 1999, NVIDIA CORPORATION.  All rights reserved.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
!     http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!
! test pointer assignment with negative strides

module m
  type et
   integer:: v
   complex::xxyy
   double precision :: d(2)
   integer:: v2(2)
  end type
end module

  use m
  integer,pointer,dimension(:) :: p,q,r,s,t,u,w

  integer, dimension(42) :: results, expect
  data expect/10000,9000,8000,7000,6000,5000,4000,3000,2000,1000, &
             &1000,2000,3000,4000,5000,6000,7000,8000,9000,10000, &
             &10000,8000,6000,4000,2000,2000,6000,10000,0,0, &
             &10000,8000,6000,4000,2000,10,8,6,4,2,&
             &2,6/


  type(et),dimension(10),target :: e

  do i = 1,10
   e(i)%v = 100*i
   e(i)%xxyy = (-1.0,-10.0)*i
   e(i)%d(1) = 99
   e(i)%d(2) = 98
   e(i)%v2(1) = 1000*i
   e(i)%v2(2) = i
  enddo

 5 format(a,i2,a,i2,a)
10 format( 10i6 )

  q => e(10:1:-1)%v2(1)
  !print 5,'q(',lbound(q,1),':',ubound(q,1),') => e(10:1:-1)%v2(1) = (10000,8000,...,1000)'
  !print 10,q
  results(1:10) = q

  r => q(10:1:-1)
  !print 5,'r(',lbound(r,1),':',ubound(r,1),') => qq(10:1:-1)      = (1000,2000,...,10000)'
  !print 10,r
  results(11:20) = r

  s => r(10:2:-2)
  !print 5,'s(',lbound(s,1),':',ubound(s,1),') => r(10:2:-2)       = (10000,8000,...,2000)'
  !print 10,s
  results(21:25) = s

  t => s(5:1:-2)
  !print 5,'t(',lbound(t,1),':',ubound(t,1),') => s(5:1:-2)        = (2000,6000,10000)'
  !print 10,t
  results(26:28) = t
  results(29:30) = 0

  u => e(10:2:-2)%v2(1)
  !print 5,'u(',lbound(u,1),':',ubound(u,1),') => e(10:2:-2)%v2(1) = (10000,8000,6000,4000,2000)'
  !print 10,u
  results(31:35) = u

  w => e(10:2:-2)%v2(2)
  !print 5,'w(',lbound(u,1),':',ubound(u,1),') => e(10:2:-2)%v2(2) = (10,8,6,4,2)'
  !print 10,w
  results(36:40) = w

  p => w(5:2:-2)
  !print 5,'p(',lbound(u,1),':',ubound(u,1),') => w(5:2:-2)        = (2,6)'
  !print 10,p
  results(41:42) = p
  call check(results,expect,size(expect))
end