This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/28908] [4.1/4.2 Regression]: fold_convert fails for Fortran operator
- From: "paulthomas2 at wanadoo dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 1 Sep 2006 04:58:49 -0000
- Subject: [Bug fortran/28908] [4.1/4.2 Regression]: fold_convert fails for Fortran operator
- References: <bug-28908-682@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #21 from paulthomas2 at wanadoo dot fr 2006-09-01 04:58 -------
Subject: Re: [4.1/4.2 Regression]: fold_convert fails
for Fortran operator
hjl at lucon dot org wrote:
Thanks HJ. It seems that I am going to have to revert this one; I have
spent way too much time on it and wasted a load of yours as well. At
least the testsuite is enormously improved!
Paul
>------- 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