program include_03

implicit none

include 'i.inc'
integer, dimension(i) :: x
print *, i
if (i /= 4) error stop

end program include_03
