1! { dg-do compile }
2! Tests the fix for PR17911, where a USE associated l-value
3! would cause an ICE in gfc_conv_variable.
4! Test contributed by Tobias Schlueter  <tobi@gcc.gnu.org>
5module t
6  interface a
7     module procedure b
8  end interface
9contains
10  integer function b(x)
11    b = x
12  end function b
13end module t
14
15subroutine r
16  use t
17  b = 1.       ! { dg-error "is not a variable" }
18  y = a(1.)
19end subroutine r
20