test.rar
2015-4-15 02:20 上传
点击文件名下载附件
358.59 KB, 下载次数: 10
character(len=6) :: c c = "ab" // char(0) // "cd" // char(0) write(*,*) index(c,"ab") write(*,*) index(c,"cd") write(*,*) len_trim(c) end