Subversion Repositories openrisc_me

! { dg-do compile }

! This tests the fix for PR29565, which failed in the gimplifier

! with the third call to has_read_key because this lost the first

! temporary array declaration from the current context.

!

! Contributed by William Mitchell  

!

  type element_t

    integer :: gid

  end type element_t

  type(element_t) :: element(1)

   call hash_read_key(element%gid)

   call hash_read_key(element%gid)

   call hash_read_key(element%gid)

contains

  subroutine hash_read_key(key)

    integer, intent(out) :: key(1)

  end subroutine hash_read_key

end