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
This commit is contained in:
parent
432e70af3e
commit
12193bf1b0
@ -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.
|
||||
|
9
gcc/testsuite/gfortran.dg/pr85938.f90
Normal file
9
gcc/testsuite/gfortran.dg/pr85938.f90
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user