[Bug fortran/15326] New: [gfortran] ICE with assumed length character strings

["Tobias dot Schlueter at physik dot uni-muenchen dot de" <gcc-bugzilla at gcc dot gnu dot org>]

[tobi@marktplatz tests]$ cat reduced.f90
  program Decapitation
    implicit none
    integer, parameter :: STRING_LENGTH = 80
    character (len = STRING_LENGTH) :: Text_1, Text_2
    Text_2 = Decap (Text_1)
    stop
  contains
    function Decap (String) result (New_String)
      character (len = *), intent(in) :: String
      character (len = Len(String)) :: New_String
      return
    end function Decap
  end program Decapitation
[tobi@marktplatz tests]$ gfortran reduced.f90
f951: ../../gcc/gcc/fortran/trans-expr.c:1000: gfc_conv_function_call: Assertion
`sym->ts.cl && sym->ts.cl->length && sym->ts.cl->length->expr_type ==
EXPR_CONSTANT' failed.
reduced.f90: In function `MAIN__':
reduced.f90:5: internal compiler error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[tobi@marktplatz tests]$

-- 
           Summary: [gfortran] ICE with assumed length character strings
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Tobias dot Schlueter at physik dot uni-muenchen dot de
                CC: gcc-bugs at gcc dot gnu dot org


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