访问字符子字符串

对于角色实体

character(len=5), parameter::greeting = "Hello"

可以使用语法引用子字符串

greeting(2:4)  ! "ell"

要访问单个字母，写入是不够的

greeting(1)    ! This isn't the letter "H"

但

greeting(1:1)  ! This is "H"

对于字符数组

character(len=5), parameter::greeting(2) = ["Hello", "Yo!  "]

我们有像子字符串访问

greeting(1)(2:4)  ! "ell"

但是我们不能引用非连续的字符

greeting(:)(2:4)  ! The parent string here is an array

我们甚至可以访问文字常量的子字符串

"Hello"(2:4)

也可以通过使用子字符串作为变量来定义字符变量的一部分。例如

integer::i=1
character::filename = 'file000.txt'

filename(9:11) = 'dat'
write(filename(5:7), '(I3.3)') i