最近搞水动力要学Fortran语言,边学边做个笔记,方便自己以后回顾复习。
今天在练习kind用法时写了这样一段代码,希望能输出"long_int:4"。
Program KindTest
Implicit none
!判断可以记录9位数的整数的ekind值
integer,parameter :: long_int = selected_int_kind(9)
write(*,"long_int:") long_int
stop
end
出现error #6899报错:
error #6899: First non-blank character in a character type format specifier must be a left parenthesis. [‘long_int:’]
原因是write(,)函数中的输出格式错误,应修改为:write(*,"('long_int:',I1)") long_int
调试成功后,输出如下: