test_serialize_int64_array Subroutine

public subroutine test_serialize_int64_array()

Arguments

None

Calls

proc~~test_serialize_int64_array~~CallsGraph proc~test_serialize_int64_array test_serialize_int64_array anyexceptions anyexceptions proc~test_serialize_int64_array->anyexceptions assertequal assertequal proc~test_serialize_int64_array->assertequal interface~deserialize_intrinsic deserialize_intrinsic proc~test_serialize_int64_array->interface~deserialize_intrinsic interface~serialize_intrinsic serialize_intrinsic proc~test_serialize_int64_array->interface~serialize_intrinsic

Source Code

   subroutine test_serialize_int64_array()
      integer(kind=INT64):: i,j,k,L
      L = 10
      i = L**15; j = i+1; k = i+2
      call check([i]);     if (anyExceptions()) return
      call check([j]);     if (anyExceptions()) return
      call check([i,j]);   if (anyExceptions()) return
      call check([i,j,k]); if (anyExceptions()) return
   contains

      subroutine check(expected)
         integer(kind=INT64), intent(in) :: expected(:)
         integer(kind=INT64), allocatable :: found(:)

         call deserialize_intrinsic(serialize_intrinsic(expected),found)
         @assertEqual(expected, found)
      end subroutine check
      
   end subroutine test_serialize_int64_array