From 18700cbbfa7b2c0a8a21947b01fae1748bbdcae2 Mon Sep 17 00:00:00 2001
From: Maxim Kuvyrkov <maxim.kuvyrkov@linaro.org>
Date: Wed, 27 Jun 2018 12:33:24 +0000
Subject: Merge branches/gcc-7-branch rev 262169.

Change-Id: Ia4e0d5dab9b29367e5f61b6ebd65fa0c318dda86
---
 gcc/testsuite/gfortran.dg/pr38351.f90 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/pr38351.f90

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

diff --git a/gcc/testsuite/gfortran.dg/pr38351.f90 b/gcc/testsuite/gfortran.dg/pr38351.f90
new file mode 100644
index 00000000000..08e1724dc0a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr38351.f90
@@ -0,0 +1,21 @@
+! { dg-do compile }
+module m1
+   type t1
+      integer :: i
+   end type t1
+   interface operator(+)
+      module procedure add
+   end interface
+   contains
+      type(t1) function add(a,b)
+         type(t1), intent(in) :: a,b
+      end function
+end module m1
+
+program foo
+   use m1
+   type(t1), dimension(2,2) :: a = t1(1), b = t1(2)
+   type(t1) :: c=t1(1), d=t1(2)
+   c = c + d
+   a = a + b   ! { dg-error "Unexpected derived-type entities" }
+end program foo
-- 
cgit v1.2.3