Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/transfer_check_2.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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