Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr40587.f
blob0761d9d7e90d5a4b41541921cf2f2c69d4703f3d
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