TestVectorAssignmentSpeed.f90 Source File

program v_n_assigment_test
!! Test whether assigment or construction is faster
use vector_m

implicit none

    type(vector) :: v1

    integer :: i
    integer, parameter :: N_LOOPS = 1E7

    do i = 1, N_LOOPS

        v1 = [1, 3, 4, 5]

    end do

    call v1%print_info()

end program