Consider the following code: ``` implicit none real :: a(10, 10) print*, size(a, dim=2) end ``` The standard requires the DIM argument to be less than the rank of SOUCE. This usage should be diagnosed.