From 12193bf1b0143795b460c96ebd609321f9663398 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sun, 3 Jun 2018 05:23:59 +0000 Subject: [PATCH] re PR fortran/85938 (Spurious assert failure for matmul with reshaped array) 2018-06-02 Steven G. Kargl PR fortran/85938 * gfortran.dg/pr85938.f90: Fixed by revision r261081 From-SVN: r261125 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr85938.f90 | 9 +++++++++ 2 files changed, 14 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr85938.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7c027e5..1d75437 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2018-06-02 Steven G. Kargl + + PR fortran/85938 + * gfortran.dg/pr85938.f90: Fixed by revision r261081 + 2018-06-02 Eric Botcazou * 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 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 -- 2.7.4