12 lines
140 B
Fortran
12 lines
140 B
Fortran
|
! { dg-do run }
|
||
|
integer i
|
||
|
i = 0
|
||
|
if ( a (i) ** 5 .ne. 1) call abort ()
|
||
|
contains
|
||
|
function a (i)
|
||
|
integer a, i
|
||
|
i = i + 1
|
||
|
a = i
|
||
|
end function
|
||
|
end
|