[Bug fortran/85565] LEN() intrinsic returns zero when given a zero-sized constructor

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2018-04-29
            Summary|LEN() intrinsic returns     |LEN() intrinsic returns
                   |zero when given zero-sized  |zero when given a
                   |array                       |zero-sized constructor
     Ever confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed from at least 4.8 up to trunk (9.0).

Note that

     character(len=20) :: empty(0)
     character(len=20, kind=4) :: empty4(0)
     print *, len(empty), size(empty)
     print *, len(empty4), size(empty4)

gives

          20           0
          20           0

i.e., the problem occurs only with empty constructors.