Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR17911, where a USE associated l-value

! would cause an ICE in gfc_conv_variable.

! Test contributed by Tobias Schlueter  

module t

  interface a

     module procedure b

  end interface

contains

  integer function b(x)

    b = x

  end function b

end module t

subroutine r

  use t

  b = 1.       ! { dg-error "is not a VALUE" }

  y = a(1.)

end subroutine r

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