gcc/testsuite/gfortran.dg/pr89077.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do run }
!
! PR fortran/89077 - ICE using * as len specifier for character parameter

program test
  implicit none
  integer :: i
  character(*), parameter :: s = 'abcdef'
  character(*), parameter :: t = transfer ([(s(i:i), i=1,len(s))], s)
  if (len (t) /= len (s) .or. t /= s) stop 1
end