gcc/testsuite/gfortran.dg/intent_out_13.f90

   1 ! { dg-do run }
   2 ! PR 88364 -- too much was clobbered on call.
   3 module pr88364
   4   implicit none
   5   type t
   6     integer :: b = -1
   7     integer :: c = 2
   8   end type t
   9 contains
  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
  19 end module pr88364
  20   use pr88364
  21   call f2
  22 end