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