program test
!=======================================================================
!   FILE: TEST19.F90
!   DATE: 8 July 2005
!
!   TEST: Integer Overflow.
!
!   Thanks to Gerry F. Thomas for pointing out the Integer*8 cases.
!   Contact: H. D. Knoble
!=======================================================================
           integer :: v,x,z
           call sethem(v,x)
           z=v*x*x
           print *, "z=",z
           stop
        contains
           subroutine sethem (v,x)
           integer, intent(out) :: v,x
            v=2**30
            x=2**30
           return
         end subroutine sethem
        end program test