1! { dg-do run }
2! { dg-options "-w" }
3! Test program for PR 28439
4integer function myfunc(i)
5   integer i
6   integer, save :: value = 2
7   value = value - 1 + 0 * i
8   myfunc = value
9end function myfunc
10
11program pr28439
12
13   integer myfunc
14
15   if (myfunc(0)) 10, 20, 30  ! Should go to 30
1610 call abort
1720 call abort
18
1930 if (myfunc(0)) 40, 50, 60  ! Should go to 50
2040 call abort
2160 call abort
22
2350 if (myfunc(0)) 70, 80, 90  ! Should go to 70
2480 call abort
2590 call abort
26
2770 continue
28
29end program pr28439
30
31
32