program test_uel_3d_euler_beam_kernel
  use uel_3d_euler_beam_test_support
  use uel_3d_euler_beam_kernel, only: &
      UEL3DEB_OK, uel3deb_validate_kernel_inputs
  implicit none

  real(dp) :: coords(3, 2)
  real(dp) :: props(9)
  integer :: status

  coords(:, 1) = [0.0_dp, 0.0_dp, 0.0_dp]
  coords(:, 2) = [2.0_dp, 0.0_dp, 0.0_dp]
  props = [210.0e9_dp, 80.0e9_dp, 3.0e-3_dp, 4.0e-6_dp, 7.0e-6_dp, &
           2.5e-6_dp, 0.0_dp, 1.0_dp, 0.0_dp]

  call uel3deb_validate_kernel_inputs(coords, props, status)
  call assert_equal_int(status, UEL3DEB_OK, 'kernel source smoke status')
  write(*, '(A)') 'PASS uel_3d_euler_beam_kernel_source_smoke'
end program test_uel_3d_euler_beam_kernel