! $Id: t_version.f90 4452 2015-01-29 14:42:02Z idculv $

program t_version

! (Very) basic test that we can link with the ROPP UTILS object library.
! The EXIT() call should find the wrapper interfaces for NAG and XLF
! compilers and correctly pass an exit code of zero back to the shell ($?).

  use ropp_utils
  call message_set_program("t_version")
  call message(msg_info, "\nThis is ROPP (UTILS) Release " // &
                         ropp_utils_version())
  call exit(msg_exit_status)

end program t_version