1! { dg-do run }
2!
3! PR fortran/89077 - ICE using * as len specifier for character parameter
4
5program test
6  implicit none
7  integer :: i
8  character(*), parameter :: s = 'abcdef'
9  character(*), parameter :: t = transfer ([(s(i:i), i=1,len(s))], s)
10  if (len (t) /= len (s) .or. t /= s) stop 1
11end
12