Fortran Coder

查看: 7867|回复: 1

[调试器] 程序运行直接跑完 无法逐句调试

[复制链接]

7

帖子

5

主题

0

精华

入门

F 币
55 元
贡献
27 点
发表于 2020-10-19 11:01:09 | 显示全部楼层 |阅读模式
主程序如下:
[Fortran] 纯文本查看 复制代码
Program MAIN
    Implicit Real*8 (A-H,O-Z)

    Character NAME*15,NAME1*15,NAME2*15,NAMEOUT*15
    Character(len=512) :: sFN1,sFN2,sFN3,sFN4,sFN5

    Dimension::sFN1(20),sFN2(20),sFN3(20),sFN4(20),sFN5(20)
    Dimension::CAA(10,10),E(30),NSTE(30)
    Common/NAM1/NAME,NAME1,NAME2,NAMEOUT
    Common/NAM2/NAM2(9)
    Common/NAM3/NAM3(10)
    Common/NAM4/ICAN,ICAN1,ICAN2,ICAN3
    Common/NAM5/strain
    Common/LOGI/LO1
    Common/STEEL/STEEL(14)

    Call INPUT
    Call INPUT1(CAA)

    Call System('JHG.EXE<CANSHU.TXT>AAA.txt')
    Call System('del AAA.txt')
    Call SUB1

    Call XIANXINWRITE     
    If(ICAN==0)Stop        

    Call CHANGELINE     
    Call XIANXINREAD(N1,N2,N3,N4,N5,sFN1,sFN2,sFN3,sFN4,sFN5,LB0)
    nALL=N1+N2+N3            

    Call SUB9(nALL,N1,N2,E)
    If(ICAN==1)Stop          
    Call CHANGENUM             
    Call NUMREAD(nALL,N1,N2,NSTE)
    Call TEMP1(nALL,N1,N2,N3,NSTE)
    Call SUB11(nALL,NN4,NN5,NSTE)

End Program

主程序运行直接就跑完了 设置的断点也没有用 无法逐句调试
有什么办法可以解决


213

帖子

2

主题

0

精华

宗师

F 币
2126 元
贡献
875 点

规矩勋章

发表于 2020-10-20 00:16:53 | 显示全部楼层
在每一个call语句后加一个print, 如下:
[Fortran] 纯文本查看 复制代码
call INPUT
print *, "Test input passed"
call INPUT1(caa)
print *, "Test input1(caa) passed"
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-28 22:12

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表