classic 10 print in gfortran, just for the haters

tenprint.f90

program ten_print
    implicit none
    integer :: i, j
    integer, parameter :: n = 40

    call random_seed()

    do i = 1, n
        do j = 1, n
            if (rand() < 0.5) then
                write(*, "(A)", advance="no") "/"
            else
                write(*, "(A)", advance="no") "\"
            end if
        end do
        write(*,*) ""
    end do
end program ten_print

real function rand()
    real :: r
    call random_number(r)
    rand = r
end function rand