void FormalParameter(out ParameterDeclarationExpression p) {
AttributeSection section;
List<AttributeSection> attributes = new List<AttributeSection>();
TypeReference type = null;
ParamModifierList mod = new ParamModifierList(this);
Expression expr = null;
p = null;
ArrayList arrayModifiers = null;
Location startLocation = la.Location;
while (la.kind == 40) {
AttributeSection(out section);
attributes.Add(section);
}
while (StartOf(29)) {
ParameterModifier(mod);
}
Identifier();
string parameterName = t.val;
if (IsDims()) {
ArrayTypeModifiers(out arrayModifiers);
}
if (la.kind == 63) {
Get();
TypeName(out type);
}
if(type != null) {
if (arrayModifiers != null) {
if (type.RankSpecifier != null) {
Error("array rank only allowed one time");
} else {
type.RankSpecifier = (int[])arrayModifiers.ToArray(typeof(int));
}
}
}
if (la.kind == 20) {
Get();
Expr(out expr);
}
mod.Check();
p = new ParameterDeclarationExpression(type, parameterName, mod.Modifier, expr);
p.Attributes = attributes;
p.StartLocation = startLocation;
p.EndLocation = t.EndLocation;
}
