external print_array "./print_array.so"

a_int = ispan(1, 5, 1)
print((/a_int/))
print_array::print_int(dimsizes(a_int), a_int)

a_real = fspan(1.0, 5.0, 5)
print((/a_real/))
print_array::print_real(dimsizes(a_real), a_real)
print_array::print_int(dimsizes(a_real), a_real)