[Bug fortran/31308] New: character(len=len(a)) :: B fails

["van dot snyder at jpl dot nasa dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

subroutine X (A )
    character(len=*), intent(inout) :: A(*)
    character(len=len(a)) :: B
  end subroutine X

fails:

 In file test.f90:3

    character(len=len(a)) :: B
                     1
Error: The upper bound in the last dimension must appear in the reference to
the assumed size array 'a' at (1).

"len" has nothing to do with bounds; it refers to the length of each element if
its argument is an array.


-- 
           Summary: character(len=len(a)) :: B fails
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: blocker
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: van dot snyder at jpl dot nasa dot gov
 GCC build triplet: 4.1.0
  GCC host triplet: 4.1.0
GCC target triplet: 4.1.0


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