PROGRAM TEST
      CALL SUBR
      STOP
      END
      INCLUDE 'ftests_f055inc'