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