gcc/testsuite/gfortran.dg/procedure_lvalue.f90

   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>
   5 module t
   6   interface a
   7      module procedure b
   8   end interface
   9 contains
  10   integer function b(x)
  11     b = x
  12   end function b
  13 end module t
  14
  15 subroutine r
  16   use t
  17   b = 1.       ! { dg-error "is not a variable" }
  18   y = a(1.)
  19 end subroutine r
  20
  21 ! { dg-final { cleanup-modules "t" } }