[Bug fortran/56138] Deferred-length character RESULT: ICE in gfc_add_modify_loc

[dominiq at lps dot ens.fr]

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

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2013-01-30 13:05:48 UTC ---
Compiling the test in comment #0 still gives the same ICE with revision 195570.
The tests in comment #1 and gfortran.dg/allocatable_function_6.f90 compile and
execute without error.

One thing I don't understand is that

  CHARACTER(LEN=:), ALLOCATABLE :: s_to_c

is accepted in the test in comment #1, but rejected with (3 times)

  CHARACTER(LEN=:),ALLOCATABLE :: chars
                                       1
Error: Deferred-length character component 'chars' at (1) is not yet supported

in the code at ftp://ftp.nag.co.uk/sc22wg5/N1901-N1950/N1913.txt.

This seems to be due to

> type VARYING_STRING
>   CHARACTER(LEN=:),ALLOCATABLE :: chars
> end type VARYING_STRING

i.e.,  "CHARACTER(LEN=:),ALLOCATABLE :: chars" being in a type definition.
Would it be possible to have a more explicit error?