编辑代码

program confession
  character(50) :: name
    character(50) :: response

      print *, "你好！请输入你的名字："
        read *, name

          print *, "亲爱的", name, "，我喜欢你！"
            print *, "你对我有同样的感觉吗？(回答是/否)"

              read *, response

                if (response == "是") then
                    print *, "太好了！我们可以在一起！"
                      else
                          print *, "哦，好吧。我理解。"
                            endif

                              ! 其他代码...

                              end program confession