读取文件中一个字符串出现的次数

kyra

character,parameter::C_define='define'
改为
character(len=*),parameter::C_define='define'

如果不改的话，C_define 没有定义长度，则长度为1。
所以，虽然赋值为 'define'，但实际的值是 'd'
那么程序的作用就变成了：“搜索d开头的行”


而文件中的 dist loads 也满足了要求。
所以 i 就是 4，而不是 3