program test
    implicit none
    real, allocatable :: A(:,:)
    character(len=100) :: fmtchar
    integer :: i, n, m

    ! A is a 5x6 matrix
    allocate(A(5,6))

    ! filled with random numbers
    call random_number(A)

    n = size(A, 1)
    m = size(A, 2)
    print *, n, m

    write(fmtchar, '("(",i0,"(f12.6))")') m

    do i = 1, n
        print fmtchar, A(i, :)
    end do
end program test