请问这是什么情况,问ai也说没毛病,但是一编译就显示搜索不到这个substring,用的gfortran编译的fortran
program main
character(len=20) string
character(len=20) substring
integer position
string = "have a good time."
substring = "good"
write(*,*) trim(string),new_line('a'), trim(substring)
write(*,*) index(string,substring)
position = index(string, substring)
if (position == 0) then
write(*,*) "Substring not found in string."
else
write(*,*) "Substring found at position:", position
endif
end
```