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