Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR19546 in which an ICE would result from

! setting the parent result in a contained procedure.

! Check that parent function results can be referenced in modules.

!

module m

contains

  function f()

    integer :: f

    f = 42

    call sub ()

    if (f.eq.1) f = f + 1

  contains

    subroutine sub

     if (f.eq.42) f = f - 41

    end subroutine sub

  end function f

end module m

  use m

  if (f ().ne.2) call abort ()

end

! { dg-final { cleanup-modules "m" } }