gcc/testsuite/gfortran.dg/intent_out_10.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }
! PR 87395 - this used to ICE
module mo
  integer, save :: x
contains
  subroutine foo
    x = 42
    call bar(x)
  contains
    subroutine bar(y)
      integer, intent(out) :: y
    end subroutine bar
  end subroutine foo
end module mo