Initial data commit

Task/Detect-division-by-zero/Fortran/detect-division-by-zero-1.f

@@ -0,0 +1,41 @@
+program  rosetta_divbyzero
+   implicit none
+   integer, parameter :: rdp = kind(1.d0)
+   real(rdp) :: normal,zero
+
+   normal = 1.d0
+   zero = 0.d0
+
+   call div_by_zero_check(normal,zero)
+
+ contains
+
+   subroutine  div_by_zero_check(x,y)
+      use, intrinsic  :: ieee_exceptions
+      use, intrinsic  :: ieee_arithmetic
+      implicit none
+      real(rdp), intent(in) :: x,y
+
+      real(rdp) :: check
+      type(ieee_status_type) :: status_value
+      logical :: flag
+      flag = .false.
+      ! Get the flags
+      call ieee_get_status(status_value)
+      ! Set the flags quiet
+      call ieee_set_flag(ieee_divide_by_zero,.false.)
+      write(*,*)"Inf supported? ",ieee_support_inf(check)
+
+      ! Calculation involving exception handling
+      check = x/y
+      write(*,*)"Is check finite?",ieee_is_finite(check), check
+
+      call ieee_get_flag(ieee_divide_by_zero, flag)
+      if (flag) write(*,*)"Warning!  Division by zero detected"
+
+      ! Restore the flags
+      call ieee_set_status(status_value)
+
+   end subroutine div_by_zero_check
+
+end program rosetta_divbyzero

Task/Detect-division-by-zero/Fortran/detect-division-by-zero-2.f

@@ -0,0 +1,8 @@
+program    rosetta_integer_divbyzero
+   implicit none
+   integer :: normal,zero,answer
+   normal = 1
+   zero = 0
+   answer = normal/ zero
+   write(*,*) answer
+end program rosetta_integer_divbyzero