program test_include_hier implicit none include "inc1.f90" print *, '2*pi:', tau end program