mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
21 lines
580 B
Fortran
21 lines
580 B
Fortran
! { 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 <william.mitchell@nist.gov>
|
|
!
|
|
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
|