1 c
       2 c               FORCHECK
       3 c           Detect truncation
       4 c
       5       CHARACTER(10) :: filename, filespec
       6       INTEGER(2) i2
       7
       8       READ *, filename
       9       filespec = filename // '.for'

(file: trunc.for, line: 9)
  filespec = filename // '.for'
**[384 I] truncation of character variable (expression)

      10       READ *, i
      11       i2 = i

(file: trunc.for, line: 11)
  i2 = i
**[337 I] implicit conversion to shorter type

      12
      13       OPEN (unit=i2, file=filespec)
      14
      15       END