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 16