1! Program to test string handling
2program string
3   implicit none
4   character(len=5) :: a, b
5   character(len=20) :: c
6
7   a = 'Hello'
8   b = 'World'
9   c = a//b
10
11   if (c .ne. 'HelloWorld') STOP 1
12   if (c .eq. 'WorldHello') STOP 2
13   if (a//'World' .ne. 'HelloWorld') STOP 3
14   if (a .ge. b) STOP 4
15end program
16