program m23
integer::n,x,y,m,min
integer,allocatable,dimension(:,:)::a
print*,'Enter M'
read*,m
print*,'Enter N'
read*,n
allocate(a(m,n))
print*,'Enter elements of matrix'
do y=1,m
    read*,(a(y,x),x=1,n)
end do
do x=1,n
    min=a(1,x)
    do y=1,m
        if(a(y,x)<min)then
            min=a(y,x)
        end if
    end do
    print*,'Min na',x
end do
do y=1,m
    print*,'Stroke',min
end do
deallocate(a)
end program

integer,allocatable,dimension()::min;
...
allocate(min(n));
do x=1,n
    min(x)=a(1,x)
    do y=1,m
        if(a(y,x)<min(x))then
            min(x)=a(y,x)
        end if
    end do
end do
do x=1,n
    print*,'Min na',x
    print*,'Stroke',min(x)
end do
deallocate(min)