Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

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

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

! would cause an ICE in gfc_conv_variable.

! would cause an ICE in gfc_conv_variable.

! Test contributed by Tobias Schlueter  

! Test contributed by Tobias Schlueter  

module t

module t

  interface a

  interface a

     module procedure b

     module procedure b

  end interface

  end interface

contains

contains

  integer function b(x)

  integer function b(x)

    b = x

    b = x

  end function b

  end function b

end module t

end module t

subroutine r

subroutine r

  use t

  use t

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

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

  y = a(1.)

  y = a(1.)

end subroutine r

end subroutine r

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

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