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