在 Debian 上进行 Fortran 代码测试的完整流程
一 环境准备
- 安装编译器与基础工具：
- 更新索引并安装 gfortran、构建工具与常用依赖：
- sudo apt update
- sudo apt install -y gfortran build-essential cmake
- 验证安装：gfortran --version（应输出版本号）
- 可选工具（按需安装）：
- 调试器：gdb
- 内存检查：valgrind
- 性能分析：gprof
- 工程化构建：cmake
- 现代 Fortran 项目管理：fpm（Fortran Package Manager）
以上工具在 Debian/Ubuntu 系均可直接通过 apt 安装，安装 gfortran 是使用 Fortran 的基础步骤。
二 快速开始与单元测试示例
- 示例库与测试（现代 Fortran 模块 + 测试程序）
- 代码文件：math_utils.f90
- module math_utils
implicit none
public :: add, dot_product_1d
private
contains
function add(a, b) result©
real, intent(in) :: a, b
real :: c
c = a + b
end function add
function dot_product_1d(x, y) result(dp)
real, intent(in) :: x(:), y(:)
real :: dp
dp = sum(x * y)
end function dot_product_1d
end module math_utils
- 测试文件：test_math_utils.f90
- program test_math_utils
use math_utils, only: add, dot_product_1d
implicit none
real :: eps
eps = 1.0e-8
! 测试 add
if (abs(add(1.0, 2.0) - 3.0) > eps) then
print *, “FAIL: add(1.0, 2.0) /= 3.0”
stop 1
end if
! 测试 dot_product_1d
if (abs(dot_product_1d([1.0, 2.0], [3.0, 4.0]) - 11.0) > eps) then
print *, “FAIL: dot_product_1d([1,2],[3,4]) /= 11.0”
stop 1
end if
print *, “All tests PASSED”
end program test_math_utils
- 编译与运行
- 编译：gfortran -O2 -Wall -Wextra -o math_utils.o -c math_utils.f90
- 编译测试：gfortran -O2 -Wall -Wextra -o test_math_utils test_math_utils.f90 math_utils.o
- 运行：./test_math_utils
- 使用 fpm（更简洁）
- 初始化：fpm new math_utils && cd math_utils
- 将上面代码放入 src/ 与 test/ 对应位置（fpm 默认约定）
- 运行测试：fpm test
- 使用 CMake（适合多文件/多库工程）
- 示例 CMakeLists.txt
- cmake_minimum_required(VERSION 3.16)
- project(MathUtils LANGUAGES Fortran)
- enable_testing()
- add_library(math_utils src/math_utils.f90)
- add_executable(test_math_utils test/test_math_utils.f90)
- target_link_libraries(test_math_utils PRIVATE math_utils)
- add_test(NAME math_utils_test COMMAND test_math_utils)
- 构建与测试
- mkdir -p build && cd build
- cmake -DCMAKE_BUILD_TYPE=Release …
- make
- ctest --output-on-failure
上述流程覆盖从“单文件快速验证”到“工程化测试”的主流做法，适合持续集成与团队协作。
三 调试与内存检查
- 使用 GDB 定位逻辑错误
- 编译时加入调试信息：gfortran -g -O0 -o test_math_utils_dbg test_math_utils.f90 math_utils.o
- 启动调试：gdb ./test_math_utils_dbg
- 常用命令：break test_math_utils（或文件名:行号）、run、next、step、print 变量、backtrace、continue、quit
- 使用 Valgrind 检查内存问题
- 基本用法：valgrind --leak-check=full --track-origins=yes ./test_math_utils
- 关注输出中的“Invalid read/write”“definitely lost”等提示，定位越界、未初始化、泄漏等问题
GDB 是通用的源码级调试器，适合断点、单步与变量检查；Valgrind 能有效发现内存访问错误与泄漏，是 Fortran 项目常用的质量保障手段。
四 性能测试与分析
- 使用 CPU 时间测量
- 示例（插入被测代码前后调用 cpu_time）：
- call cpu_time(t0)
- ! … 被测代码 …
- call cpu_time(t1)
- print *, "Elapsed: “, t1 - t0, " seconds”
- 编译：gfortran -O3 -o bench bench.f90（推荐用较高优化等级进行性能测试）
- 使用 gprof 进行热点分析
- 编译：gfortran -O2 -pg -o bench_prof bench.f90
- 运行：./bench_prof
- 生成报告：gprof bench_prof gmon.out > profile.txt
- 实践建议
- 固定随机种子、关闭调试断点、预热后再计时，重复多次取中位数
- 对比优化级别（如 -O2 与 -O3）、不同算法与数据布局的影响
以上方法可快速获得总耗时与函数级热点分布，用于评估优化收益与瓶颈定位。
五 兼容性与常见错误排查
- 提升可移植性与兼容性
- 遵循 Fortran 90/95/2003/2008 标准，优先使用标准特性
- 避免依赖编译器扩展；必要时用条件编译处理差异
- 采用模块化设计、显式接口与接口块，减少隐式耦合
- 在多种编译器/平台上做回归测试（可用 CI）
- 常见错误与修复要点
- 编译期：语法错误、缺少 use、接口不匹配；开启 -Wall -Wextra 并配合 implicit none
- 链接期：未定义引用（库未链接或路径不对）；检查模块路径与链接顺序
- 运行期：数组越界、除零、文件未找到；打开文件用 iostat 判断，避免隐式 SAVE
- 逻辑期：未初始化变量、整数除法截断；显式初始化并使用合适字面值
通过静态检查、编译器警告与运行时检查的组合，可显著降低缺陷率并提升可维护性。