This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/28908] [4.1/4.2 Regression]: fold_convert fails for Fortran operator



------- Comment #20 from hjl at lucon dot org  2006-08-31 22:24 -------
Here it is:

[hjl@gnu-25 wrf-1]$ cat zzz.f90
module bar
  implicit none
  public
  type ESMF_Time
  sequence
    integer :: MM
  end type
  public operator (+)
  private add
  interface operator (+)
  module procedure add
  end interface
contains
    function add (x, y)
      type(ESMF_Time) :: add
      type(ESMF_Time), intent(in) :: x
      type(ESMF_Time), intent(in) :: y
      add = x
    end function add
end module bar

module foo
  use bar
  implicit none
  private
  type ESMF_Clock
  sequence
    type(ESMF_Time)  :: CurrTime
  end type
contains
  subroutine ESMF_ClockAdvance(clock)
  use bar
    type(ESMF_Clock), intent(inout) :: clock
    clock%CurrTime = clock%CurrTime + clock%CurrTime
  end subroutine ESMF_ClockAdvance
end module foo
[hjl@gnu-25 wrf-1]$ make zzz.s
/usr/gcc-4.2/bin/gfortran -O2 -ffast-math -S -o zzz.s zzz.f90
zzz.f90: In function ?esmf_clockadvance?:
zzz.f90:31: internal compiler error: in fold_convert, at fold-const.c:2098
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
make: *** [zzz.s] Error 1
[hjl@gnu-25 wrf-1]$


-- 


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]