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