fork(1) download
copy 
  1. !Alex Kukha answer #224610924
  2. character(80) :: string = "Whatttt's up doc?"
  3. lng=len_trim(string)
  4. forall (i=1:lng) string(i:i) = string(lng-i+1:lng-i+1)
  5. do i=1,lng-1
  6.   if (string(i:i)==' ') then
  7.     if (string(i+1:i+1)/=' ') then 
  8.     print *
  9.     else
  10.     cycle
  11.     endif
  12.    endif
  13.    write(*, "(a1)", advance='no') string(i:i)
  14. enddo
  15. end
Success #stdin #stdout 0s 5452KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
?cod
 pu
 s'ttttah
https://ideone.com/v9F7ap
language:
Fortran (gfortran 8.3)
created:
3 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!