TRIM (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_trim CHARACTER(len=10), PARAMETER :: s = "GFORTRAN " WRITE(,) LEN(s), LEN(TRIM(s)) ! "10 8", with/without trailing blanks END PROGRAM