From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Sun, 3 Jun 2018 05:23:59 +0000 (+0000)
Subject: re PR fortran/85938 (Spurious assert failure for matmul with reshaped array)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=12193bf1b0143795b460c96ebd609321f9663398;p=gcc.git

re PR fortran/85938 (Spurious assert failure for matmul with reshaped array)

2018-06-02  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/85938
	* gfortran.dg/pr85938.f90: Fixed by revision r261081

From-SVN: r261125
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7c027e5d4f5..1d75437eed7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2018-06-02  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/85938
+	* gfortran.dg/pr85938.f90: Fixed by revision r261081
+
 2018-06-02  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/specs/opt3.ads: New test.
diff --git a/gcc/testsuite/gfortran.dg/pr85938.f90 b/gcc/testsuite/gfortran.dg/pr85938.f90
new file mode 100644
index 00000000000..99b5e68fdd6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr85938.f90
@@ -0,0 +1,9 @@
+! { dg-do run }
+! PR fortran/85938
+program foo
+  real a(9), b(3)
+  integer :: n = 3
+  a = 1.0
+  b = 1.0
+  if (any(matmul(reshape(A, (/ n, n /)), b) /= 3.)) stop 1
+end program