Program storage_size_example
  Real x, y(100)
  Character(:), Allocatable :: z
  Print *,Storage_Size(x)
  Print *,Storage_Size(y)
  z = 'Hello Everybody!!!'
  Print *,Storage_Size(z)
End Program