2 ! { dg-options "-std=gnu" }
3 ! Tests patch for pr27155, where character scalar string_lengths
4 ! were not correctly translated by the array transfer intrinsic.
6 ! Contributed by Bo Berggren <bo.berggren@glocalnet.net>
10 character(11) :: s1, s2
16 ia = TRANSFER (s1, (/ 0_4 /))
17 s2 = TRANSFER(ba + 32_1, s2)
19 if (s2 .ne. 'abcdefghijk') call abort ()
22 ba = TRANSFER (trim (s1)//' JK' , (/ 0_1 /))
25 if (trim (s1)//' JK' .ne. s2) call abort ()