PROGRAM noimpnone

  IMPLICIT NONE
  REAL :: meters, inches

  meters = 1.0
  inches = metres * 39.37
  print*, '### 1 meter = ',inches,' inches'

END PROGRAM noimpnone
