Subversion Repositories openrisc

! { dg-do run }

! { dg-additional-sources bind_c_dts_driver.c }

module bind_c_dts

  use, intrinsic :: iso_c_binding

  implicit none

  type, bind(c) :: MYFTYPE_1

     integer(c_int) :: i, j

     real(c_float) :: s

  end type MYFTYPE_1

  TYPE, BIND(C) :: particle

     REAL(C_DOUBLE) :: x,vx

     REAL(C_DOUBLE) :: y,vy

     REAL(C_DOUBLE) :: z,vz

     REAL(C_DOUBLE) :: m

  END TYPE particle

  type(myftype_1), bind(c, name="myDerived") :: myDerived

contains

  subroutine types_test(my_particles, num_particles) bind(c)

    integer(c_int), value :: num_particles

    type(particle), dimension(num_particles) :: my_particles

    integer :: i

    ! going to set the particle in the middle of the list

    i = num_particles / 2;

    my_particles(i)%x = my_particles(i)%x + .2d0

    my_particles(i)%vx = my_particles(i)%vx + .2d0

    my_particles(i)%y = my_particles(i)%y + .2d0

    my_particles(i)%vy = my_particles(i)%vy + .2d0

    my_particles(i)%z = my_particles(i)%z + .2d0

    my_particles(i)%vz = my_particles(i)%vz + .2d0

    my_particles(i)%m = my_particles(i)%m + .2d0

    myDerived%i = myDerived%i + 1

    myDerived%j = myDerived%j + 1

    myDerived%s = myDerived%s + 1.0;

  end subroutine types_test

end module bind_c_dts

! { dg-final { cleanup-modules "bind_c_dts" } }