procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* gfortran.dg/transfer_simplify_4.f90: New test.

Browse source 
From-SVN: r125136
This commit is contained in:
Brooks Moses 2007-05-28 18:30:50 +00:00 • committed by Brooks Moses
parent 20585ad66a
commit 0919f6374c
2 changed files with 34 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
2007-05-28 Brooks Moses <brooks.moses@codesourcery.com>
* gfortran.dg/transfer_simplify_3.f90: New test.
2007-05-27 Tobias Burnus <burnus@net-b.de>
PR fortran/32088

30
gcc/testsuite/gfortran.dg/transfer_simplify_4.f90 Normal file
View file

@ -0,0 +1,30 @@
! { dg-do run }
! { dg-options "-O0" }
! Tests that the in-memory representation of a transferred variable
! propagates properly.
!
implicit none
integer, parameter :: ip1 = 42
logical, parameter :: ap1 = transfer(ip1, .true.)
integer, parameter :: ip2 = transfer(ap1, 0)
logical :: a
integer :: i
i = transfer(transfer(ip1, .true.), 0)
if (i .ne. ip1) call abort ()
i = transfer(ap1, 0)
if (i .ne. ip1) call abort ()
a = transfer(ip1, .true.)
i = transfer(a, 0)
if (i .ne. ip1) call abort ()
i = ip1
a = transfer(i, .true.)
i = transfer(a, 0)
if (i .ne. ip1) call abort ()
end