test_core_version.F90

Go to the documentation of this file.

! Copyright (c) 2026 The YAC Authors
!
! SPDX-License-Identifier: BSD-3-Clause
 
 
#include "yac_config.h"
#include "yac_core_version_check.h"
 
#include "test_macros.inc"
 
program test_core_version
 
  use utest
  use yac_core, only : yac_get_core_version_c
 
  implicit none
 
  character(len=1024) :: macro_version
  character(len=:), allocatable :: function_version
  logical :: yac_core_version_is_greater_equal
 
  call utest_start_test("yac_core_version")
 
  allocate(character(32) :: function_version)
  function_version = yac_get_core_version_c()
 
  call test(allocated(function_version))
 
  if (allocated(function_version)) then
    write(macro_version, '(A,I0,A,I0,A,I0,A)') &
      "v", yac_core_version_major, ".", &
          yac_core_version_minor, ".", &
          yac_core_version_patch, &
          yac_core_version_tweak
    call test(trim(macro_version) == trim(function_version))
 
    write(macro_version, '(A,A)') "v", yac_core_version
    call test(trim(macro_version) == trim(function_version))
 
    print *, 'YAC Core Version: ' // trim(function_version)
  end if
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR-1, YAC_CORE_VERSION_MINOR, YAC_CORE_VERSION_PATCH)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(yac_core_version_is_greater_equal)
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR, YAC_CORE_VERSION_MINOR-1, YAC_CORE_VERSION_PATCH)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(yac_core_version_is_greater_equal)
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR, YAC_CORE_VERSION_MINOR, YAC_CORE_VERSION_PATCH-1)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(yac_core_version_is_greater_equal)
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR, YAC_CORE_VERSION_MINOR, YAC_CORE_VERSION_PATCH)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(yac_core_version_is_greater_equal)
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR, YAC_CORE_VERSION_MINOR, YAC_CORE_VERSION_PATCH+1)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(.NOT. yac_core_version_is_greater_equal)
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR, YAC_CORE_VERSION_MINOR+1, YAC_CORE_VERSION_PATCH)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(.NOT. yac_core_version_is_greater_equal)
 
# if YAC_CORE_VERSION_GREATER_EQUAL(YAC_CORE_VERSION_MAJOR+1, YAC_CORE_VERSION_MINOR, YAC_CORE_VERSION_PATCH)
  yac_core_version_is_greater_equal = .true.
# else
  yac_core_version_is_greater_equal = .false.
# endif
  call test(.NOT. yac_core_version_is_greater_equal)
 
  call utest_stop_test
 
  call utest_exit_tests
 
end program test_core_version