＜CHARACTER Example Program＞

Program character_example
  Character(3) :: a
  a = 'ABC'
  Print *, a
End Program

■ Execution Results

 ABC