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
10 j = 10/0! { dg-error "Division by zero at" }
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" }