ada_unqualified_type_spec

ada_unqualified_type_spec 
      ::= 
      "char" 
      "(" "1" double_period length ")" 
      | "bit" 
      "(" "1" double_period length ")" 
      | "smallint" 
      | "int" 
      | "real" 
      | "double_precision" 
      | "sqlcode_type" 
      | "sqlstate_type" 
      | "indicator_type" 

This rule is called by

-> ada_type_spec