mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
17 lines
551 B
Fortran
17 lines
551 B
Fortran
! { 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
|
|
|