Skip to content
Snippets Groups Projects
Commit 21c78e28 authored by Jonas Jucker's avatar Jonas Jucker Committed by Yen-Chen Chen
Browse files

add test for timer

parent 65e3dbe0
No related branches found
No related tags found
1 merge request!64Draft: add test for util_stride
! ICON
!
! ---------------------------------------------------------------
! Copyright (C) 2004-2025, DWD, MPI-M, DKRZ, KIT, ETH, MeteoSwiss
! Contact information: icon-model.org
!
! See AUTHORS.TXT for a list of authors
! See LICENSES/ for license information
! SPDX-License-Identifier: BSD-3-Clause
! ---------------------------------------------------------------
MODULE test_mo_util_timer
USE FORTUTF
USE fortran_support, ONLY: util_gettimeofday
CONTAINS
SUBROUTINE TEST_cputime
USE ISO_C_BINDING, ONLY: c_ptr, c_double, c_int
REAL(c_double) :: time1, time2
CALL TAG_TEST("TEST_gettimeofday")
time1 = util_gettimeofday()
time2 = util_gettimeofday()
CALL ASSERT_ALMOST_EQUAL(time1, time2)
END SUBROUTINE
END MODULE test_mo_util_timer
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment