c: Fix up pointer types to may_alias structures [PR114493]

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr104849.f90

! { dg-do compile }
! PR fortran/104849 - ICE in find_array_section
! Contributed by G.Steinmetz

program p
  integer, parameter :: a(:) = [1, 2] ! { dg-error "deferred shape" }
  integer :: x(2)
  data x /a(:)/                       ! { dg-error "Invalid" }
end