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 7c027e5d4f5e10d4bf1a57d4bc16eedecd9c1fe8..1d75437eed7fcebaa578b0b52cf89ae3692b3d1b 100644 (file)
--- 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 (file)
index 0000000..99b5e68
--- /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