SUBROUTINE SUBR
      A=1
      print *,'f055 passed'
      RETURN
      END