program prog1
  ! compile and link with:  f90 -o prog1  prog1.f90  module1.o
  use module1
  implicit none
  type (mine) :: y
  type (mine) :: z

  print *, "prog1.f90 uses module1.f90"
  y = funct1()
  call subr1(y)
  call print1(y)
  z = y
  z = z + y
  call print1(z)
  call print1(huge(z))
end program prog1