[Bug fortran/78803] deferred-length character components of derived types (allocatable string length) problem

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78803

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2016-12-14
                 CC|                            |janus at gcc dot gnu.org
            Summary|deferred-length character   |deferred-length character
                   |components of derived types |components of derived types
                   |(allocatable string length) |(allocatable string length)
                   |problem - ?regression       |problem
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
(In reply to David Duffy from comment #0)
> Compiled with GNU Fortran (GCC) 7.0.0 20161213 (experimental) [trunk
> revision 243588] or 5.4.0 20160609 (Ubuntu 5.4.0-6ubuntu1~16.04.4)
> 
> gives:
> 
>  dim=           3  len=           3
>  ABC
>  STR  ->ABC<-            3
>  STR  ->DEF<-            3
>  STR  ->123<-            3
>  dim=           3  len=           3
>  123
>  CON  ->123<-            3
>  CON  ->123<-            3
>  CON  ->123<-            3

I get the same output also with 6.2, while 4.9 yields:

 dim=           3  len=           0

 STR  -><-            0
 STR  -><-            0
 STR  -><-            0
 dim=           3  len=           0

 CON  -><-            0
 CON  -><-            0
 CON  -><-            0

which is obviously much worse. 4.8 does not compile the program. So it does not
seem to be a regression.