＜ADJUSTL Example Program＞

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

---

■ Execution Results

   a
   ab
   abc
   bcd
   cde
   def
   efg
   fg
   g