program fileio
	implicit none
	integer, parameter :: maxsize=1000000

	integer, dimension(maxsize) :: input
	integer :: j
	integer :: val
	
        open(10, file='test.dat')
        open(20, file='test.out')
        open(30, file='test2.out')
	write (*, *) 'Opening file'
	read(10,*) val
        write(*,*) 'Val=', val
        write(20,*) maxsize
        do j=1, maxsize
            write(20, *) int(rand() * 100)
            write(30, *) int(rand() * 100)
        end do
        close(20)
        close(30)
	end program