!----------------------------------------------------------------------------
!                              F95CALLBD.F90
!
!                       Lahey Computer Systems, Inc.
!                                PO Box 6091
!                         Incline Village, NV 89450
!                            voice: 702-831-2500
!                              fax: 702-831-8123
!                        e-mail: support@lahey.com
!
!              Copyright(c)  1998, Lahey Computer Systems, Inc.
!
!----------------------------------------------------------------------------
!
! Once you have created f95callbd.dll with Delphi, compile this program
! with the following command line:
!
! lf95 f95callbd -win -ml bd -implib f95callbd.dll -import bd_min -import bd_max
!
!
program main
integer :: bd_min, bd_max
dll_import bd_min, bd_max

!
!  Call the routines which are in f95callbd.dll, the Delphi-created DLL
!
print*, bd_min( 4, 8), " is smaller than ", bd_max( 4, 8)
print*, bd_max( 4, 8), " is larger than  ", bd_min( 4, 8)
pause
end