--- Comment #13 from rguenth at gcc dot gnu dot org 2006-12-15 15:28
---
Fixed.
--
rguenth at gcc dot gnu dot org changed:
What|Removed |Added
Status|ASSIGNE
--- Comment #12 from rguenth at gcc dot gnu dot org 2006-12-13 10:29
---
Fixed on the mainline, backport to 4.2 pending.
--
rguenth at gcc dot gnu dot org changed:
What|Removed |Added
---
--- Comment #8 from tkoenig at gcc dot gnu dot org 2006-12-09 19:03 ---
(In reply to comment #7)
> I guess it may work to only change
>
> void allocate (void **, size_t, int *)
> to
>
> void *allocate (void *, size_t, int *)
> and use it like
> descriptor.data = allocate (desc
--- Comment #7 from rguenth at gcc dot gnu dot org 2006-12-09 10:23 ---
I guess it may work to only change
void allocate (void **, size_t, int *)
to
void *allocate (void *, size_t, int *)
and use it like
descriptor.data = allocate (descriptor.data, size, pstat)
the point is t
--- Comment #6 from tkoenig at gcc dot gnu dot org 2006-12-08 23:35 ---
I forgot
integer, allocatable :: a(:)
integer, pointer :: b(:)
:-)
> allocate(a(4))
> ! This should set the stat code and change the size.
> allocate(a(3),stat=i)
> if (i == 0) call abort
> if (
--- Comment #5 from tkoenig at gcc dot gnu dot org 2006-12-08 22:54 ---
(In reply to comment #1)
>if (TYPE_PRECISION (gfc_array_index_type) == 32)
> {
>if (allocatable_array)
> - allocate = gfor_fndecl_allocate_array;
> + allocate = gfor_fndecl_internal_mall
--- Comment #4 from rguenth at gcc dot gnu dot org 2006-12-08 07:38 ---
Magic will not help here ;)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30115
--- Comment #3 from jvdelisle at gcc dot gnu dot org 2006-12-08 01:25
---
It's Magic!
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30115
--- Comment #2 from rguenth at gcc dot gnu dot org 2006-12-07 22:00 ---
That patch^Whack improves fatigue runtime from 27.3s to 9.5s (with the sincos
patches applied).
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30115
--- Comment #1 from rguenth at gcc dot gnu dot org 2006-12-07 21:54 ---
A little playing around and looking at the allocate() implementation in
libgfortran suggests that it is possible to fix this.
Index: trans-array.c
===
10 matches
Mail list logo
