＜ADJUSTR Example Program＞

Program adjustr_example
  Character(7) :: a(9) = [ 'a      ', &
                           'ab     ', &
                           'abc    ', &
                           ' bcd   ', &
                           '  cde  ', &
                           '   def ', &
                           '    efg', &
                           '     fg', &
                           '      g' ]
  Print 1, Adjustr(a)
1 Format(A10)
End Program

---

■ Execution Results

         a
        ab
       abc
       bcd
       cde
       def
       efg
        fg
         g