public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/16942] New: automatic length vector as function return value causes internal compiler error
@ 2004-08-09 14:38 paulthomas2 at wanadoo dot fr
  2004-08-09 16:04 ` [Bug fortran/16942] " pinskia at gcc dot gnu dot org
                   ` (3 more replies)
  0 siblings, 4 replies; 5+ messages in thread
From: paulthomas2 at wanadoo dot fr @ 2004-08-09 14:38 UTC (permalink / raw)
  To: gcc-bugs

!  $ ../bin/gfortran bug7a.f90 -o test
!  assertion "expr2->value.function.isym || (gfc_return_by_reference (expr2->symtre
!  e->n.sym) && expr2->symtree->n.sym->result->attr.dimension)" failed: file "../..
!  /gcc/gcc/fortran/trans-expr.c", line 1776
!  bug7a.f90: In function `MAIN__':
!  bug7a.f90:34: 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.

  module t 
    implicit none 
    integer,parameter :: slen = 4
    interface t1
      module procedure mt1 
    end interface 

  contains 

    function mt1(Vector) result (Ans) 
      integer, intent (in), dimension(:)  :: Vector 
      integer, dimension(size(Vector)) :: Ans 
!!!      integer, dimension(4) :: Ans              !!is OK
      Ans = Vector
      return
    end function mt1
  end module t

  program ft
    use t
    implicit none
    integer, dimension( slen) :: res, tsrt = (/1,2,3,4/)
    integer :: i
    res = t1( tsrt )
    print * , (res(i), i=1,slen)
    stop
  end program ft

-- 
           Summary: automatic length vector as function return value causes
                    internal compiler error
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paulthomas2 at wanadoo dot fr
                CC: bdavis at gcc dot gnu dot org,gcc-bugs at gcc dot gnu
                    dot org


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


^ permalink raw reply	[flat|nested] 5+ messages in thread
end of thread, other threads:[~2005-06-05 22:44 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-08-09 14:38 [Bug fortran/16942] New: automatic length vector as function return value causes internal compiler error paulthomas2 at wanadoo dot fr
2004-08-09 16:04 ` [Bug fortran/16942] " pinskia at gcc dot gnu dot org
2004-09-27 16:10 ` tobi at gcc dot gnu dot org
2004-11-11  5:17 ` [Bug fortran/16942] ICE automatic length vector as function return value pinskia at gcc dot gnu dot org
2005-06-05 22:44 ` pault 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).