array_index.f03

program main
    character(len=32) :: argv
    integer(8) :: size_of_a, n
    integer, allocatable :: a(:)

    call get_command_argument(1, argv)
    read (argv,*) size_of_a

    allocate(a(size_of_a))
    n = size(a)
    print *, "Size of array (via n): ", n
    print *, "Size of array (via size(a)): ", size(a)
    print *, "Size of array (via size(a,kind=8)): ", size(a, kind=8)

end program