module m
  dimension :: x(10)
  private :: x
  real :: x
end module m