gcc/testsuite/gfortran.dg/spread_simplify_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do run }
! PR 68426 - simplification used to fail.
  module m
    implicit none
    type t
      integer :: i
    end type t
    type(t), dimension(2), parameter :: a1  = (/ t(1), t(2) /)
    type(t), dimension(1), parameter :: c = spread ( a1(1), 1, 1 )
  end module m


program main
  use m
  if (c(1)%i /= 1) stop 1
end program main