[Bug fortran/31258] segfault with transpose(reshape(char))

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


$ cat eoshift.f90
CHARACTER(LEN=3), DIMENSION(10) :: Z
CHARACTER(LEN=10) :: res
Z(:)="123"
write(*,'(10A1)') EOSHIFT(Z(:)(2:2),2)
END
$ gfortran eoshift.f90
eoshift.f90: In function 'MAIN__':
eoshift.f90:3: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


$ cat spread.f90
CHARACTER(LEN=3), DIMENSION(10) :: Z
CHARACTER(LEN=10) :: res
Z(:)="123"
write(*,'(10A1)') SPREAD(Z(:)(2:2),dim=1,ncopies=2)
END
$ gfortran spread.f90
spread.f90: In function 'MAIN__':
spread.f90:3: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


$ cat transpose.f90
CHARACTER(LEN=3), DIMENSION(10,10) :: Z
CHARACTER(LEN=10) :: res
Z(:,:)="123"
write(*,'(10A1)') TRANSPOSE(Z(:,:)(2:2))
END
$ gfortran transpose.f90
transpose.f90: In function 'MAIN__':
transpose.f90:3: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |pault at gcc dot gnu dot org


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