REAL, implied-do-loop, and initialization expression?

[N.M. Maclaren]

Oops.  I meant:

  integer, parameter :: n = 4
  integer, parameter :: k(n) = [4, 8, 10, 16]
  real :: a(20)
  call fred(real(a,k))

Sorry.

Regards,
Nick Maclaren.