!
! Copyright (c) 2015, 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.
!

program p

  integer, parameter :: NBR_TSTS = 26
  complex :: cplx = (1.1,2.2)
  complex :: cplxarr(3) = [(1.1,2.2), (3.3, 4.4), (5.5, 6.6)]
  real :: r
  type t
     complex :: cplxarr(3)
  end type
  type(t):: tinst = t( [(1.1,2.2), (3.3, 4.4), (5.5, 6.6)] )
  real :: expect(NBR_TSTS)
  data expect /3.14, 2.2, 3.14, -3.14, 3.14, 4.4, 3.14, -3.14,   &
               3.14, 4.4, 3.14, -3.14, 3.14, -3.14, 3.14, -3.14, &
               3.14, -3.14, 1.1, 2.2, 5.5, 6.6, 1.1, 2.2, 5.5, 6.6/

  real :: result(NBR_TSTS)

  cplx%re = 3.14
  result(1) = cplx%re
  result(2) = imag(cplx)
  cplx%im = -3.14
  result(3) = real(cplx)
  result(4) = cplx%im
  cplxarr(2)%re = 3.14
  result(5) = cplxarr(2)%re
  result(6) = imag(cplxarr(2))
  cplxarr(2)%im = -3.14
  result(7) = real(cplxarr(2))
  result(8) = cplxarr(2)%im
  tinst%cplxarr(2)%re = 3.14
  result(9) = tinst%cplxarr(2)%re
  result(10) = imag(tinst%cplxarr(2))
  tinst%cplxarr(2)%im = -3.14
  result(11) = real(tinst%cplxarr(2))
  result(12) = tinst%cplxarr(2)%im

!  print *, cplxe
!  print *, cplxarr 
!  print *, tinst%cplxarr

  call pass_cmplxpart(cplx%re, 13)
  call pass_cmplxpart(cplx%im, 14)
  call pass_cmplxpart(cplxarr(2)%re, 15)
  call pass_cmplxpart(cplxarr(2)%im, 16)
  call pass_cmplxpart(tinst%cplxarr(2)%re, 17)
  call pass_cmplxpart(tinst%cplxarr(2)%im, 18)

  result(19) = real(cplxarr(1))
  result(20) = imag(cplxarr(1))
  result(21) = real(cplxarr(3))
  result(22) = imag(cplxarr(3))
  result(23) = real(tinst%cplxarr(1))
  result(24) = imag(tinst%cplxarr(1))
  result(25) = real(tinst%cplxarr(3))
  result(26) = imag(tinst%cplxarr(3))

  call checkf(result, expect, NBR_TSTS)
 contains
  subroutine pass_cmplxpart(r, tstnbr)
    real :: r
    integer :: tstnbr

    result(tstnbr) = r
!   print *,"print_cmplxpart: ", r
  end subroutine
end program