------- Comment #20 from hjl at lucon dot org 2006-08-31 22:24 -------
Here it is:
[EMAIL PROTECTED] 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
[EMAIL PROTECTED] 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
[EMAIL PROTECTED] wrf-1]$
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28908
