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