PL SQL Oracle PLSQL

SQL>
SQL> DECLARE
  2    SUBTYPE code IS CHAR(1 CHAR);
  3    c CHAR(1 CHAR) := 'A';
  4    d CODE;
  5  BEGIN
  6    d := c;
  7  END;
  8  /
PL/SQL procedure successfully completed.
SQL>