From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gfortran.dg/dependency_37.f90 | 49 +++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/dependency_37.f90

(limited to 'gcc/testsuite/gfortran.dg/dependency_37.f90')

diff --git a/gcc/testsuite/gfortran.dg/dependency_37.f90 b/gcc/testsuite/gfortran.dg/dependency_37.f90
new file mode 100644
index 000000000..73721c92f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/dependency_37.f90
@@ -0,0 +1,49 @@
+! { dg-do compile }
+! { dg-options "-Warray-temporaries" }
+! PR 48231 - this used to create an unnecessary temporary.
+module UnitValue_Module
+  type :: UnitValue
+    real          :: Value = 1.0
+  end type
+
+  interface operator(*)
+    module procedure ProductReal_LV
+  end interface operator(*)
+
+  interface assignment(=)
+    module procedure Assign_LV_Real
+  end interface assignment(=)
+contains
+
+  elemental function ProductReal_LV(Multiplier, Multiplicand) result(P_R_LV)
+    real, intent(in)            :: Multiplier
+    type(UnitValue), intent(in) :: Multiplicand
+    type(UnitValue)             :: P_R_LV
+    P_R_LV%Value = Multiplier * Multiplicand%Value
+  end function ProductReal_LV
+
+  elemental subroutine Assign_LV_Real(LeftHandSide, RightHandSide)
+    real, intent(inout)         :: LeftHandSide
+    type(UnitValue), intent(in) :: RightHandSide
+    LeftHandSide = RightHandSide%Value
+  end subroutine Assign_LV_Real
+end module UnitValue_Module
+
+program TestProgram
+  use UnitValue_Module
+
+  type :: TableForm
+    real, dimension(:,:), allocatable :: RealData
+  end type TableForm
+
+  REAL :: CENTIMETER
+  type(TableForm), pointer :: Table
+
+  allocate(Table)
+  allocate(Table%RealData(10,5))
+
+  CENTIMETER = 42
+  Table%RealData = 1
+  Table%RealData(:,1) = Table%RealData(:,1) * CENTIMETER
+end program TestProgram
+! { dg-final { cleanup-modules "UnitValue_Module" } }
-- 
cgit v1.2.3