2 ! { dg-options "-O -std=legacy" }
4 ! Test fixes for some findings while resolving PR fortran/89077
9 character(*) ,parameter :: s
= 'abcdef' ! Length will be 6
10 character(*) ,parameter :: h
= 6Habcdef
! Length will be 8 (Hollerith!)
11 character(10) ,parameter :: k
= 6Habcdef
12 character(10) ,parameter :: t
= transfer (s
, s
)
13 character(10) ,save :: u
= transfer (s
, s
)
14 character(10) ,parameter :: v
= transfer (h
, h
)
15 character(10) ,save :: w
= transfer (h
, h
)
16 character(10) ,parameter :: x
= transfer ([(s(i
:i
),i
=len(s
),1,-1)], s
)
17 character(10) ,save :: y
= transfer ([(s(i
:i
),i
=len(s
),1,-1)], s
)
18 if (len (h
) /= 8) stop 1
25 if (x
/= "fedcba") stop 8
