RosettaCodeData/Task/Phrase-reversals/Fortran/phrase-reversals-2.f
2016-12-05 22:15:40 +01:00

3 lines
66 B
Fortran

DO L1 = L1,L
IF (ATXT(L1).GT." ") EXIT
END DO