blob: 0761d9d7e90d5a4b41541921cf2f2c69d4703f3d [file] [log] [blame]
C PR traget/40587
C { dg-do compile }
C { dg-options "-O2" }
subroutine TEST(i, r, result)
implicit none
integer i
REAL*8 r
REAL*8 result
REAL*8 r2
if(i.eq.0) then
r2 = r
else
call ERROR()
endif
result = r2
return
end