Parsing challenge to reduce blanks

Heres a challenge thats O.T. in another topic and IMO deserves its own
topic.

Challenge:
Create a function that accepts a text line and returns a same length text
output line
but with no blank fields > 1 char in length.
! -----------------------------------------
function reduce_blanks(line) result(outline)
character(*) :: line
character(len(line)) :: outline

my 3 executable statements will be posted tomorrow, anyone know what they
might look like?
JVB claims he has a 2 statement solution but hasnt posted it..

end function



.

Relevant Pages

  • Re: iso_varying_string in f2003?
    ... thats a collection of very complex statements but I dont see you ... >> 3 executable statements inserted here ...
    (comp.lang.fortran)
  • Re: iso_varying_string in f2003?
    ... thats a collection of very complex statements but I dont see you ... executable statements inserted here ...
    (comp.lang.fortran)