Skip to content
Snippets Groups Projects
Commit 00afa834 authored by Sebastian Müller's avatar Sebastian Müller 🐈
Browse files

datetime: intel fortran has date and time as intrinsic routines -> rename...

datetime: intel fortran has date and time as intrinsic routines -> rename types to soledate and soletime
parent 9860698e
No related branches found
No related tags found
1 merge request!76mo_datetime
Pipeline #169146 passed with stages
in 12 minutes and 41 seconds
This diff is collapsed.
module test_mo_datetime
use funit
use mo_kind, only: i4, i8, dp
use mo_datetime, only: datetime, timedelta, date, time, one_hour, one_day, one_week, one_minute, one_second, is_leap_year
use mo_datetime, only: datetime, timedelta, soledate, soletime, one_hour, one_day, one_week, one_minute, one_second, is_leap_year
use mo_datetime, only: days_in_month, days_in_year, now, today, currently, zero_delta
use mo_datetime, only: day_seconds, hour_seconds, day_minutes, hour_minutes, day_hours
......@@ -17,8 +17,8 @@ contains
subroutine test_datetime_types()
type(datetime) :: date1, date2, date3, date4, date5
type(date) :: day1, day2
type(time) :: time1, time2
type(soledate) :: day1, day2
type(soletime) :: time1, time2
type(timedelta) :: delta, delta1
character(:), allocatable :: string
......@@ -146,8 +146,8 @@ contains
! more string tests
! create from datetime string
date5 = datetime("2023-05-08 12:32:30")
day2 = date("2023-05-08")
time1 = time("12:32:30")
day2 = soledate("2023-05-08")
time1 = soletime("12:32:30")
@assertTrue(date5 == time1%with_date(day2))
@assertTrue(date5 == day2%with_time(time1))
@assertTrue(date5 == datetime(day2, time1))
......
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