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