program hello
implicit none
integer i,j
do i=1,9
print 10,(j,'*',i,'=',i*j,j=1,i)
end do
10 format(<i>(i1,a,i1,a,i2,2x))
end program
屏幕截图 2020-11-05 161415.png (1.47 KB, 下载次数: 215)
li913 发表于 2020-11-5 22:08
是ivf扩展功能,其他编译器不支持。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |