NetBeans 7.4下GFortran运行Fortran代码出现IO错误与段错误如何解决

错误原因汇总 #

该段错误由多个常见问题共同触发：

• 汇编调用约定不匹配：screen.s、pixel.s多为适配老16位Fortran编译器的实模式汇编，和32/64位GFortran的保护模式运行环境、函数命名/参数传递规则不兼容，直接调用会触发非法内存访问
• 代码逻辑存在缺陷：IO单位号冲突、注释位置错误、数组未初始化部分可能传入垃圾值
• 运行环境配置错误：FLOWER.DAT不在NetBeans运行工作目录下，文件打开失败后读取到无效坐标值传给汇编例程
• 固定格式语法不规范：行尾用分号写注释不符合FORTRAN77规范，部分编译器会将分号识别为语句分隔符，误将注释内容当代码执行

具体修改步骤 #

1. 修正Fortran主程序 #

修改后的代码如下：

CHARACTER W*1
      DIMENSION IR(1319), IC(1319)
      INTEGER IERR, I
C     SCREEN(6)为切换到图形模式，SCREEN(3)为切回文本模式
      CALL SCREEN(6)   
C     改用10以上的单位号避免和标准IO冲突，显式判断文件打开状态
      OPEN(UNIT=10, FILE='FLOWER.DAT', STATUS='OLD', ACTION='READ', IOSTAT=IERR)
      IF(IERR /= 0) THEN
          WRITE(*,*) 'FLOWER.DAT打开失败，请检查文件路径'
          CALL SCREEN(3)
          STOP
      END IF
      DO I=1,1319
         READ(10, 021, END=035) IR(I), IC(I)
021     FORMAT(I3,I3)
      END DO
035  CLOSE(10)
C     仅绘制实际读取到的像素，避免传入数组未初始化的垃圾值
      DO J=1,I-1
         CALL PIXEL(1, IR(J), IC(J))
      END DO
      READ(*,'(A)') W
      CALL SCREEN(3)
      END

2. 适配汇编例程与GFortran的调用约定 #

• 若使用32位GFortran，默认会对外部函数名加下划线后缀，需要将screen.s里的入口函数名改为screen_，pixel.s里的入口函数名改为pixel_
• Fortran默认所有参数传引用，汇编中取参数时需要先取地址对应的数值再使用，32位cdecl约定下第一个参数的地址存在[esp+4]，需要先mov eax, [esp+4]再mov eax, [eax]拿到实际参数值
• 若汇编例程使用int 10hBIOS中断实现图形操作，保护模式下无法直接运行，建议改用DOSBox+DJGPP（16位GFortran分支）编译运行，无需修改汇编代码

3. 调整NetBeans运行配置 #

• 将FLOWER.DAT放到NetBeans项目的运行工作目录下，默认路径为项目根目录的dist文件夹，也可以在OPEN语句中写文件的绝对路径临时测试
• 编译时添加参数-g -O0 -fcheck=all，运行时可以输出更精确的错误位置，方便后续排查

内容的提问来源于stack exchange，提问作者sundar