diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-06-03 05:23:59 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-06-03 05:23:59 +0000 |
| commit | 12193bf1b0143795b460c96ebd609321f9663398 (patch) | |
| tree | e36e8b93f1f000087d71bf93e501bcb64ab6c4aa /gcc | |
| parent | 432e70af3e01dd71912bd69ee6abb2a307d8622b (diff) | |
| download | gcc-12193bf1b0143795b460c96ebd609321f9663398.zip gcc-12193bf1b0143795b460c96ebd609321f9663398.tar.gz gcc-12193bf1b0143795b460c96ebd609321f9663398.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85938.f90 | 9 |
2 files changed, 14 insertions, 0 deletions
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 <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 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 |