vscode中Fortran调试运行自动结束，无法输出结果。

可能出错的程序

语法无误，但是运行后输入abc后自动结束运行，没有输出。
原因可能是没来得及看到输出结果，已经运行到了end，结束。

程序如下↓

program EXAMPLE 
    implicit none

    real*8::a,b,c,x1,x2

    !输入a,b,c
    print *, "please input a, b, c"

    read *, a, b, c

    x1=(-b+sqrt(b*b-4*a*c))/(2*a)

    x2=(-b-sqrt(b*b-4*a*c))/(2*a)

    !打印结果
    print *, "result: ",x1, x2
end program EXAMPLE

输入后按enter，直接退出。

code终端显示运行完毕

修改方法

新加变量d并定义，加入片段

    print*,'按任意键结束'
    READ*, d

使代码最后增加一步确认退出

program EXAMPLE 
    implicit none

    real*8::a,b,c,x1,x2,d

    !输入a,b,c
    print *, "please input a, b, c"

    read *, a, b, c

    x1=(-b+sqrt(b*b-4*a*c))/(2*a)

    x2=(-b-sqrt(b*b-4*a*c))/(2*a)

    !打印结果
    print *, "result: ",x1, x2
    print*,'按任意键结束'
    READ*, d
end program EXAMPLE

运行