begin
  integer big = 16_7FFFFFF0
  integer medium  ; ! UNASSIGNED!
  integer I
  I = big+medium   ;! SHOULD ERROR!
  WRITE(I,0)
  NEWLINE
endofprogram