From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-94550-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 27547 invoked by alias); 6 May 2004 16:48:21 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Received: (qmail 27538 invoked by uid 48); 6 May 2004 16:48:19 -0000
Date: Thu, 06 May 2004 16:48:00 -0000
From: "Tobias dot Schlueter at physik dot uni-muenchen dot de" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Message-ID: <20040506164815.15326.Tobias.Schlueter@physik.uni-muenchen.de>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/15326] New: [gfortran] ICE with assumed length character strings
X-Bugzilla-Reason: CC
X-SW-Source: 2004-05/txt/msg00615.txt.bz2
List-Id: <gcc-bugs.sourceware.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