gcc/testsuite/gfortran.dg/pr40587.f

   1 C PR traget/40587
   2 C { dg-do compile }
   3 C { 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