gcc/testsuite/gfortran.dg/arith_divide.f

   1 ! { dg-do compile }
   2 ! This test executes all code paths in gfc_arith_divide
   3 ! when executed along with it's companion test
   4 ! arith_divide_no_check.f
   5         implicit none
   6         integer i,j
   7         real a,b
   8         complex c,d
   9         i = 10/40
  10         j = 10/0! { dg-error "Division by zero at" }
  11         a = 10.0/40.0
  12         b = 10.0/0.0! { dg-error "Division by zero at" }
  13         c = (1.0,1.0)/(10.0,40.0) !  Not division by zero
  14         d = (1.0,10.)/(0.0,0.0)! { dg-error "Division by zero at" }
  15         end