blob: 3f2c7d80ca0b5bc6f0f40e4c6387ad2ecac7df75 [file] [log] [blame]
! { dg-do run }
! { dg-options "-fdump-tree-original" }
!
! PR fortran/55134
!
! Contributed by Valery Weber
!
program bug
implicit none
integer,dimension(1)::i
i(:)=1
associate(a =>i)
call foo(a)
end associate
! write(*,*) i
if (i(1) /= 2) STOP 1
contains
subroutine foo(v)
integer, dimension(*) :: v
v(1)=2
end subroutine foo
end program bug
! { dg-final { scan-tree-dump-times "foo ..integer.kind=4..0:. . restrict. a.data.;" 1 "original" } }