!     DTYPEARG.F90   Demonstrate use of SEQUENCE to allow passing
!                    a derived-type argument.  Also uses Interface blocks.
!                    Compare to DTYPEMOD.F90  
! Expected result:
!          2           1
!
! Compile using
!     df dtypearg.f90
! If using Developer's Studio, use default Project Settings
!  

      INTERFACE
        SUBROUTINE jones (p)
        TYPE pair
          SEQUENCE
          INTEGER ub, lb
        END TYPE
        TYPE (pair) p
        END SUBROUTINE
      END INTERFACE
!___________________________

      TYPE pair
        SEQUENCE
        INTEGER ub, lb
      END TYPE
      TYPE (pair) p

      CALL  jones (p)
      WRITE (*,*) p
      END
!___________________________

      SUBROUTINE jones (p)
      TYPE pair
        SEQUENCE
        INTEGER ub, lb
      END TYPE
      TYPE (pair) p

      p.ub = 2
      p.lb = 1
      END SUBROUTINE