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