1! { dg-do run }
2! PR 88364 -- too much was clobbered on call.
3module pr88364
4  implicit none
5  type t
6    integer :: b = -1
7    integer :: c = 2
8  end type t
9contains
10  subroutine f1 (x)
11    integer, intent(out) :: x
12    x = 5
13  end subroutine f1
14  subroutine f2 ()
15    type(t) :: x
16    call f1 (x%b)
17    if (x%b .ne. 5 .or. x%c .ne. 2) stop 1
18  end subroutine f2
19end module pr88364
20  use pr88364
21  call f2
22end
23