subroutine bonjour(M)
integer :: M
integer :: i

do i=1,M,1
write(*,*)'Bonjour!'
enddo

end subroutine
