编写fortran代码,如下:
program main
implicit none
integer re_i
write(*,*) "Hello World!"
re_i = system("ping jingyan.baidu.com")
end
在codeblocks中编译、链接,如下:
测试运行,结果如下: