IMPLICIT NONE ! Fortran's equivalent to use strict;use warnings
CHARACTER(len=*),PARAMETER,DIMENSION(4) :: in = (/'  one', 'two', 'three      ', 'four'/)
DO n = SIZE(n),2, -1;WRITE(*,'(a,",",1x)',advance = 'no') TRIM(ADJUSTL(in(n)));ENDDO
WRITE(*,'(a)') TRIM(ADJUSTL(in(1))