public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/17123] New: Assertion fail in trans-const.c
@ 2004-08-20 15:46 refson dot temp at ntlworld dot com
  2004-08-20 15:47 ` [Bug fortran/17123] " refson dot temp at ntlworld dot com
                   ` (10 more replies)
  0 siblings, 11 replies; 12+ messages in thread
From: refson dot temp at ntlworld dot com @ 2004-08-20 15:46 UTC (permalink / raw)
  To: gcc-bugs

This small fortran program gives an assertion fail in the compiler.

$ gfc g95bug.f90
f951: ../../gcc/gcc/fortran/trans-const.c:357: gfc_conv_constant: Assertion
`se->ss->type == GFC_SS_SCALAR' failed.
g95bug.f90: In function `g95sum':
g95bug.f90:12: internal compiler error: Aborted

$ gfc --version
GNU Fortran 95 (GCC 3.5.0 20040820 (experimental))
Copyright (C) 2003 Free Software Foundation, Inc.

$ cat g95bug.f90
module g95test
  type, public :: keyword
     character(len=3)            :: typ
  end type keyword

  type(keyword), dimension(:), allocatable :: key_temp

contains
  subroutine g95sum

    character(len=1) :: tp
    tp = achar(sum(ichar(key_temp%typ(1:1))))
  end subroutine g95sum

end module g95test

-- 
           Summary: Assertion fail in trans-const.c
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: refson dot temp at ntlworld dot com
                CC: gcc-bugs at gcc dot gnu dot org


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


^ permalink raw reply	[flat|nested] 12+ messages in thread

end of thread, other threads:[~2005-09-13 20:12 UTC | newest]

Thread overview: 12+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-08-20 15:46 [Bug fortran/17123] New: Assertion fail in trans-const.c refson dot temp at ntlworld dot com
2004-08-20 15:47 ` [Bug fortran/17123] " refson dot temp at ntlworld dot com
2004-08-20 15:55 ` pinskia at gcc dot gnu dot org
2004-08-20 16:30 ` reichelt at gcc dot gnu dot org
2004-08-22 18:21 ` tobi at gcc dot gnu dot org
2004-08-22 18:22 ` tobi at gcc dot gnu dot org
2004-08-26  9:09 ` reichelt at gcc dot gnu dot org
2004-08-26  9:13 ` reichelt at gcc dot gnu dot org
2005-03-23 11:16 ` refson dot temp at ntlworld dot com
2005-07-14 22:55 ` pbrook at gcc dot gnu dot org
2005-07-24 11:35 ` refson dot temp at ntlworld dot com
2005-09-13 20:12 ` reichelt at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).