! { dg-do compile } | |
! { dg-options "-fdump-tree-original" } | |
! | |
! Check the fix for PR34955 in which three bytes would be copied | |
! from bytes by TRANSFER, instead of the required two. | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
! | |
subroutine BytesToString(bytes, string) | |
type ByteType | |
integer(kind=1) :: singleByte | |
end type | |
type (ByteType) :: bytes(2) | |
character(len=*) :: string | |
string = transfer(bytes, string) | |
end subroutine | |
! { dg-final { scan-tree-dump-times "MIN_EXPR" 1 "original" } } |