1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
program string_04
implicit none
character(len = 40), allocatable :: user_data(:)
character, allocatable :: greetings(:)
character(len=:), allocatable :: str
allocate(user_data(3))
user_data(1) = 'Mr. '
user_data(2) = 'Rowan '
user_data(3) = 'Atkinson'
allocate(greetings(5))
greetings(1) = 'h'
greetings(2) = 'e'
greetings(3) = 'l'
greetings(4) = 'l'
greetings(5) = 'o'
print *, 'Here is ', user_data(1), user_data(2), user_data(3)
print *, greetings
allocate(character(len=8)::str)
str = 'abcd'
if (len(str(2:)) /= 3) error stop
end program
|
