Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PRs 18578, 18579 and their repeats 20857 and 20885.

! Contributed by Paul Thomas  

  real, parameter :: a =42.0

  real :: b

  call foo(b + 2.0)    ! { dg-error "variable definition context" }

  call foo(a)          ! { dg-error "variable definition context" }

  call bar(b + 2.0)    ! { dg-error "variable definition context" }

  call bar(a)          ! { dg-error "variable definition context" }

contains

  subroutine foo(a)

    real, intent(out) :: a

    a = 0.0

  end subroutine foo

  subroutine bar(a)

    real, intent(INout) :: a

    a = 0.0

  end subroutine bar

end