gcc/testsuite/gfortran.dg/pr102817.f90


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

! { dg-do compile }
! PR fortran/102817 - ICE in gfc_clear_shape

program test
  type t
     integer :: a(1,2) = 3
  end type t
  type(t), parameter :: u    = t(4)
  type(t), parameter :: x(1) = t(4)
  integer, parameter :: p(1,2) = (x(1)%a)
  integer            :: z(1,2) = (x(1)%a) 
  integer            :: y(1,2), v(1,2), w(1,2)
  v = (u   %a)
  w =  x(1)%a
  y = (x(1)%a)
  print *, v, w, y, z, p
end