program ex0415
  character(len=20) string
  character(len=5) substring
  string = "Have a nice day."
  substring = "nice"
  write(*,*) ichar('A') ! 輸出字符A的ASCII碼
  write(*,*) char(65)   ! 輸出ASCII碼65所代表的字符,也就是A
  write(*,*) len(string) ! 輸出字符串string聲明時(shí)的長(zhǎng)度
  write(*,*) len_trim(string) ! 輸出字符串string內(nèi)容的長(zhǎng)度
  write(*,*) index(string, substring) ! nice在Have a nice day的第8個(gè)位置
end