SUBROUTINE FOO ( A, B, C, D )
Argument Definitions (+ indicates altered content)
REAL               a(1),       b(*),       c(21,*),    d(2)
Source file:t208n.f
Intrinsic Functions Called
INTEGER            ichar