Regression on character function

[Dominique Dhumieres]

Dear Paul,

With your patch the test in pr45170 comment #19 gives

[macbook] f90/bug% gfc pr45170_4.f90
'
In function 'say_something':
Segmentation fault

instead of

[macbook] f90/bug% gfcp pr45170_4.f90
pr45170_4.f90:8.38:

    class(speaker) ,intent(in) :: this
                                      1
Error: Deferred-length character component 'speak' at (1) is not yet supported

Further testing in progress.

Cheers,

Dominique