! Program to test string handling | |
program string | |
implicit none | |
character(len=5) :: a, b | |
character(len=20) :: c | |
a = 'Hello' | |
b = 'World' | |
c = a//b | |
if (c .ne. 'HelloWorld') call abort | |
if (c .eq. 'WorldHello') call abort | |
if (a//'World' .ne. 'HelloWorld') call abort | |
if (a .ge. b) call abort | |
end program |