PROGRAM arith2
!
! Author:  Br. David Carlson
!
! Date:  January 3, 2000  Edited with gEdit.
!
! This program tries division by zero and division by almost zero.
! This program tries division by zero and division by almost zero.

IMPLICIT NONE

WRITE (*, *) ' Program to try division by zero and almost zero:'
WRITE (*, *) ' 1 divided by 0 (integer division) gives: ', 1 / 0
WRITE (*, *) ' 0 divided by 0 (integer division) gives: ', 0 / 0
WRITE (*, *) ' 1.0 divided by 0.0 (real division) gives: ', 1.0 / 0.0
WRITE (*, *) ' 0.0 divided by 0.0 (real division) gives: ', 0.0 / 0.0
WRITE (*, *) ' 1.0 divided by 1.0E-30 (real division) gives: ',   &
   1.0 / 1.0E-30
WRITE (*, *) ' 1.0E30 divided by 1.0E-30 (real division) gives: ',   &
   1.0E30 / 1.0E-30
WRITE (*, *) ' End of program'

END PROGRAM