1C PR traget/40587 2C { dg-do compile } 3C { dg-options "-O2" } 4 subroutine TEST(i, r, result) 5 implicit none 6 integer i 7 REAL*8 r 8 REAL*8 result 9 REAL*8 r2 10 if(i.eq.0) then 11 r2 = r 12 else 13 call ERROR() 14 endif 15 result = r2 16 return 17 end 18