public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/31214]  New: ICE on valid code with gfortran
@ 2007-03-16 11:44 jv244 at cam dot ac dot uk
  2007-03-16 19:42 ` [Bug fortran/31214] " fxcoudert at gcc dot gnu dot org
                   ` (8 more replies)
  0 siblings, 9 replies; 10+ messages in thread
From: jv244 at cam dot ac dot uk @ 2007-03-16 11:44 UTC (permalink / raw)
  To: gcc-bugs

A recent gfortran ICEs on the following code:

module type_mod
  implicit none

  type x
     integer x
  end type x
  type y
     integer x
  end type y
  type z
     integer x
  end type z

  interface assignment(=)
     module procedure equals
  end interface assignment(=)

  interface operator(//)
     module procedure a_op_b, b_op_a
  end interface operator(//)

  contains
     subroutine equals(x,y)
        type(z), intent(in) :: y
        type(z), intent(out) :: x

        x%x = y%x
     end subroutine equals

     function a_op_b(a,b)
        type(x), intent(in) :: a
        type(y), intent(in) :: b
        type(z) a_op_b
        type(z) b_op_a
     entry b_op_a(b,a)
        a_op_b%x = a%x/b%x
     end function a_op_b
end module type_mod

program test
  use type_mod
  implicit none
  type(x) :: x1 = x(19)
  type(y) :: y1 = y(7)
  type(z) z1

  z1 = x1//y1
  write(*,*) 'x1//y1 = ',z1
  z1 = y1//x1
  write(*,*) 'y1//x1 = ',z1
end program test


-- 
           Summary: ICE on valid code with gfortran
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


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


^ permalink raw reply	[flat|nested] 10+ messages in thread
end of thread, other threads:[~2007-08-12 10:28 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-03-16 11:44 [Bug fortran/31214] New: ICE on valid code with gfortran jv244 at cam dot ac dot uk
2007-03-16 19:42 ` [Bug fortran/31214] " fxcoudert at gcc dot gnu dot org
2007-04-07 20:18 ` [Bug fortran/31214] User-defined operator using entry leads to ICE pault at gcc dot gnu dot org
2007-04-07 20:31 ` pault at gcc dot gnu dot org
2007-05-30 14:04 ` jv244 at cam dot ac dot uk
2007-06-21 20:48 ` pault at gcc dot gnu dot org
2007-08-04 11:50 ` patchapp at dberlin dot org
2007-08-04 20:46 ` pault at gcc dot gnu dot org
2007-08-04 20:58 ` pault at gcc dot gnu dot org
2007-08-12 10:28 ` fxcoudert 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).