literal-nonzero-inconsist1.f90

program literalnonzero
  real :: a, b
  a = 2
  b = f(a)

contains
  ! unit 'a :: f
  real function f(x)
    != unit 'a :: x
    real :: x
    x = 1
    f = x
  end function f
end program literalnonzero