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') call abort
12   if (c .eq. 'WorldHello') call abort
13   if (a//'World' .ne. 'HelloWorld') call abort
14   if (a .ge. b) call abort
15end program
16