1! { dg-do compile } 2! { dg-options "-fdump-tree-original" } 3! 4! Check the fix for PR34955 in which three bytes would be copied 5! from bytes by TRANSFER, instead of the required two. 6! 7! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 8! 9subroutine BytesToString(bytes, string) 10 type ByteType 11 integer(kind=1) :: singleByte 12 end type 13 type (ByteType) :: bytes(2) 14 character(len=*) :: string 15 string = transfer(bytes, string) 16 end subroutine 17! { dg-final { scan-tree-dump-times "MIN_EXPR" 1 "original" } } 18