program sheng
implicit none
integer a(3)
data a /9,9,9/
any(a>1)
end program
program sheng
implicit none
integer a(3)
data a /9,9,9/
all(a>1)
end program
liudy02 发表于 2020-9-7 14:23
一个函数不能成为一个语句
write(*,*) any(a>1)
这样
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |