blob: 26a0d2821bb7b78c63ccf6a9d677a26fa62a0006 (
plain)
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
|