blob: 3f2e1bfb5c95a42f8bc5d51b33fd075a013509a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { dg-do compile }
! { dg-options "-Wsurprising" }
! PR 37221 - also warn about too-long MOLD for TRANSFER if not simplifying.
! Test case based on contribution by Tobias Burnus.
program main
character(len=10) :: str
integer :: i
str = transfer(65+66*2**8+67*2**16+68*2**24,str) ! { dg-warning "has partly undefined result" }
write (*,*) str(1:4)
i = 65+66*2**8+67*2**16+68*2**24
str = transfer(i,str) ! { dg-warning "has partly undefined result" }
write (*,*) str(1:4)
str = transfer(i,str(1:4))
write (*,*) str(1:4)
end program
|
