test_get_month_end Subroutine

public subroutine test_get_month_end()

Arguments

None

Calls

proc~~test_get_month_end~~CallsGraph proc~test_get_month_end test_get_month_end assertequal assertequal proc~test_get_month_end->assertequal get_month_end get_month_end proc~test_get_month_end->get_month_end

Source Code

   subroutine test_get_month_end()
      integer, parameter :: year = 2022
      integer, parameter :: leap_year = 2020
      integer :: i

      do i = 1, 12
         @assertEqual(ENDS(i), get_month_end(year, i))
         @assertEqual(ENDS_LEAP(i), get_month_end(leap_year, i))
      end do

   end subroutine test_get_month_end