求助sed的使用

[郭增元]

我想用sed实现以下功能，自己摸索半日发现无法成功，向各位大佬求助
我需要在开头有 & 的行的上一行的行尾添加一个 &，形成配对
如
integer :: i=1
write
& (*,*) i
write
& (*,*) i
end
处理为
integer :: i=1
write&
& (*,*) i
write&
& (*,*) i
end