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