Problem with TRIM and getcwd

Hi everyone,

The TRIM function in combination with getcwd doesn't do anything for me. Why is that so? Any ideas?

CHARACTER(len=255)                           :: cwd
Character(:),allocatable                            :: trim_cwd


CALL getcwd(cwd)
trim_cwd = TRIM(cwd) ! still holds all the trailing spaces

Thanks,
Felix