 TYPE
    fdt$get_variable_attributes = array [1 .. * ] of
      fdt$get_variable_attribute;

*copyc fdt$get_variable_attribute
