------- 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 function 'MAIN__': pack.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 unpack.f90 CHARACTER(LEN=3), DIMENSION(10) :: Z logical, dimension(5,2) :: mask CHARACTER(LEN=10) :: res Z(:)="123" mask = .true. write(*,'(10A1)') unpack(Z(:)(2:2),mask,' ') END $ gfortran unpack.f90 unpack.f90: In function 'MAIN__': unpack.f90:5: 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. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31258
