program const_arrays
	integer, parameter :: x(*) = [4, 9, 6, 12, 13]
	print *, x
end
