1! { dg-do run } 2integer i 3i = 0 4if ( a (i) ** 5 .ne. 1) call abort () 5contains 6function a (i) 7integer a, i 8i = i + 1 9a = i 10end function 11end 12