program testa
c     character string manipulation test
      acter*32 ihold
      character*32 list(1000)
      list(50)='aabbccddeeffgghhiijjkkllmmnnoop '
      list(49)='abcdefghijklmnopqrstuvwxyzzzzzz '
      list(48)='bbccddeeffgghhiijjkkllmmnnooppq '
      list(47)='bcdefghijklmnopqrstuvwxyzabcdef '
      list(46)='ccddeeffgghhiijjkkllmmnnooppqqr '
      list(45)='cdefghijklmnopqrstuvwxyzabcedfg '
      list(44)='ddeeffgghhiijjkkllmmnnooppqqrrs '
      list(43)='defghijklmnopqrstuvwxyzabcdefgh '
      list(42)='eeffgghhiijjkkllmmnnooppqqrrsst '
      list(41)='efghijklmnopqrstuvwxyzabcdefghi '
      list(40)='ffgghhiijjkkllmmnnooppqqrrssttu '
      list(39)='fghijklmnopqrstuvwxyzabcdefghij '
      list(38)='gghhiijjkkllmmnnooppqqrrssttuuv '
      list(37)='ghijklmnopqrstuvwxyzabcdefghijk '
      list(36)='hhiijjkkllmmnnooppqqrrssttuuvvw '
      list(35)='hijklmnopqrstuvwxyzabcdefghijkl '
      list(34)='iijjkkllmmnnooppqqrrssttuuvvwwx '
      list(33)='ijklmnopqrstuvwxyzabcdefghijklm '
      list(32)='jjkkllmmnnooppqqrrssttuuvvwwxxy '
      list(31)='jklmnopqrstuvwxyzabcdefghijklmn '
      list(30)='kkllmmnnooppqqrrssttuuvvwwxxyyz '
      list(29)='klmnopqrstuvwxyzabcdefghijklmno '
      list(28)='llmmnnooppqqrrssttuuvvwwxxyyzza '
      list(27)='lmnopqrstuvwxyzabcdefghijklmnop '
      list(26)='mmnnooppqqrrssttuuvvwwxxyyzzaab '
      list(25)='mnopqrstuvwxyzabcdefghijklmnopq '
      list(24)='nnooppqqrrssttuuvvwwxxyyzzaabbc '
      list(23)='nopqrstuvwxyzabcdefghijklmnopqr '
      list(22)='ooppqqrrssttuuvvwwxxyyzzaabbccd '
      list(21)='opqrstuvwxyzabcdefghijklmnopqrs '
      list(20)='ppqqrrssttuuvvwwxxyyzzaabbccdde '
      list(19)='pqrstuvwxyzabcdefghijklmnopqrst '
      list(18)='qqrrssttuuvvwwxxyyzzaabbccddeef '
      list(17)='qrstuvwxyzabcdefghijklmnopqrstu '
      list(16)='rrssttuuvvwwxxyyzzaabbccddeeffg '
      list(15)='rstuvwxyzabcdefghijklmnopqrstuv '
      list(14)='ssttuuvvwwxxyyzzaabbccddeeffggh '
      list(13)='stuvwxyzabcdefghijklmnopqrstuvw '
      list(12)='ttuuvvwwxxyyzzaabbccddeeffgghhi '
      list(11)='tuvwxyzabcdefghijklmnopqrstuvwx '
      list(10)='uuvvwwxxyyzzaabbccddeeffgghhiij '
      list(9)='uvwxyzabcdefghijklmnopqrstuvwxy '
      list(8)='vvwwxxyyzzaabbccddeeffgghhiijjk '
      list(7)='vwxyzabcdefghijklmnopqrstuvwxyz '
      list(6)='wwxxyyzzaabbccddeeffgghhiijjkkl '
      list(5)='wxyzabcdefghijklmnopqrstuvwxyza '
      list(4)='xxyyzzaabbccddeeffgghhiijjkkllm '
      list(3)='xyzabcdefghijklmnopqrstuvwxyzab '
      list(2)='yyzzaabbccddeeffgghhiijjkkllmmn '
      list(1)='zzaabbccddeeffgghhiijjkkllmmnn0 '
      do 4,i=50,999,50
      do 4,j=1,50
         list(i+j)=list(j)
    4 continue
      l=999
      do 5,j=1,999
      do 3,i=1,l
      if(list(i).gt.list(i+1)) then
         ihold=list(i)
         list(i)=list(i+1)
         list(i+1)=ihold
      end if
    3 continue
      l=l-1
    5 continue
      do 6,i=1,1000
      if(list(i)(25:25).eq.'a') then
          print*,i,list(i)
      end if
    6 continue
      stop
      end