[Bug fortran/54597] Function can't return string without trailing spaces

["kargl at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54597

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org 2012-09-16 08:45:09 UTC ---
(In reply to comment #0)
> I would like to write a function that will return string without trailing
> spaces, the prototype of the function is as following:
> 
> module mod
> 
> contains
> 
>     function foo()
> 
>         character(*), allocatable :: foo
>         character(1000) bar
> 
>         bar = "abc"
>         foo = bar
> 
>     end function foo
> 
> end module mod
> 
> program main
> 
>     use mod
> 
>     write(*, *) """", foo(), """"
> 
> end program main
> 
> The result of "gfortran" still contains trailing spaces, but "ifort" works as
> expected.

Is this the actually code you want to compile?

laptop:kargl[207] gfortran -o z d.f90
d.f90:5.4:

    function foo()
    1
Error: Character-valued module procedure 'foo' at (1) must not be\
   assumed length