From 03928f1634ed7a410899598d76b38e1f7162ce42 Mon Sep 17 00:00:00 2001
From: brooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 28 May 2007 18:30:50 +0000
Subject: [PATCH] * gfortran.dg/transfer_simplify_4.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125136 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                           |  4 +++
 gcc/testsuite/gfortran.dg/transfer_simplify_4.f90 | 30 +++++++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/transfer_simplify_4.f90

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 710c62c5fda..994dd10ca01 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/transfer_simplify_4.f90 b/gcc/testsuite/gfortran.dg/transfer_simplify_4.f90
new file mode 100644
index 00000000000..314593474a9
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/transfer_simplify_4.f90
@@ -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
-- 
2.11.0