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