--- Comment #8 from pault at gcc dot gnu dot org 2007-08-30 22:13 ---
Fixed on trunk.
Thanks for the report!
Paul
--
pault at gcc dot gnu dot org changed:
What|Removed |Added
---
--- Comment #7 from pault at gcc dot gnu dot org 2007-08-30 22:11 ---
Subject: Bug 31258
Author: pault
Date: Thu Aug 30 22:10:55 2007
New Revision: 127939
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=127939
Log:
2007-08-31 Paul Thomas <[EMAIL PROTECTED]>
PR fortran/
--- Comment #6 from pault at gcc dot gnu dot org 2007-06-11 12:54 ---
A fix is coming for this tonight or tomorrow.
Paul
--
pault at gcc dot gnu dot org changed:
What|Removed |Added
-
--- Comment #5 from tkoenig at gcc dot gnu dot org 2007-05-27 10:28 ---
pack and unpack are also affected:
$ cat pack.f90
CHARACTER(LEN=3), DIMENSION(10,10) :: Z
CHARACTER(LEN=10) :: res
Z="123"
write(*,'(10A1)') pack(Z(:,:)(2:2),mask=.true.)
END
$ gfortran pack.f90
pack.f90: In functio
--- Comment #4 from tkoenig at gcc dot gnu dot org 2007-05-27 09:06 ---
I forgot the source code for the cshift case:
$ cat cshift.f90
CHARACTER(LEN=3), DIMENSION(10) :: Z
CHARACTER(LEN=10) :: res
Z(:)="123"
write(*,'(10A1)') CSHIFT(Z(:)(2:2),2)
END
$ gfortran cshift.f90
cshift.f90: In
--- Comment #3 from tkoenig at gcc dot gnu dot org 2007-05-27 09:04 ---
The problem seems to extend to pretty much all array intrinsics:
$ gfortran cshift.f90
cshift.f90: In function 'MAIN__':
cshift.f90:3: internal compiler error: Segmentation fault
Please submit a full bug report,
wit
--- Comment #2 from pault at gcc dot gnu dot org 2007-04-08 09:40 ---
This fixes this PR and PR31197. It needs some work because it still fails with
variable expressions in the string length and I need to figure out which other
intrinsics, if any, need the same treatment.
Paul
Index:
--- Comment #1 from fxcoudert at gcc dot gnu dot org 2007-03-21 00:01
---
(In reply to comment #0)
> CHARACTER(LEN=3), DIMENSION(10) :: Z
> CHARACTER(LEN=10) :: res
> Z(:)="123"
> write(*,'(10A1)') TRANSPOSE(RESHAPE(Z(:)(2:2),(/5,2/)))
> END
Same thing happens with
write(*,'(10A1)')