mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
25 lines
656 B
Fortran
25 lines
656 B
Fortran
! { dg-do run }
|
|
! { dg-options "-ffrontend-optimize -fdump-tree-optimized" }
|
|
! PR 66041 - this used to ICE with an incomplete fix for the PR.
|
|
program main
|
|
implicit none
|
|
type :: t
|
|
real :: c
|
|
end type t
|
|
type(t), dimension(1,-2:0) :: a1
|
|
real, dimension(3,2) :: b1
|
|
real, dimension(2) :: c1
|
|
real, dimension(1,2) :: c2
|
|
|
|
data a1%c /17., -23., 29./
|
|
data b1 / 2., -3., 5., -7., 11., -13./
|
|
|
|
c1 = matmul(a1(1,:)%c, b1)
|
|
if (any (c1-[248., -749.] /= 0.)) STOP 1
|
|
|
|
c2 = matmul(a1%c, b1)
|
|
if (any (c2-reshape([248., -749.],shape(c2)) /= 0.)) STOP 2
|
|
end program main
|
|
|
|
! { dg-final { scan-tree-dump-times "_gfortran_matmul" 0 "optimized" } }
|