<Example Program>
Program shape_example
Real a(0:2,4)
Print *,
Shape(a)
End
Execution Results
3 4