| ! { 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 |