1! { dg-do run } 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. 5! 6! Contributed by Bo Berggren <bo.berggren@glocalnet.net> 7! 8program trf_test 9 implicit none 10 character(11) :: s1, s2 11 integer(4) :: ia(3) 12 integer(1) :: ba(12) 13 equivalence (ia, ba) 14 15 s1 = 'ABCDEFGHIJK' 16 ia = TRANSFER (s1, (/ 0_4 /)) 17 s2 = TRANSFER(ba + 32_1, s2) 18 19 if (s2 .ne. 'abcdefghijk') STOP 1 20 21 s1 = 'AB' 22 ba = TRANSFER (trim (s1)//' JK' , (/ 0_1 /)) 23 s2 = TRANSFER(ia, s2) 24 25 if (trim (s1)//' JK' .ne. s2) STOP 2 26 27end program trf_test 28