program hanging
use DFLIB
use IFPORT

integer :: delay = 1000  ! 1 sec
integer :: die   = 60*60 ! time to die
integer :: i

write(*,'(a,i0,a)')"##teamcity[setParameter name=',TestServerProcessID' value='",getpid(), "']"
do i=1, die
    call sleepqq(delay)
    write(*,*) i, "/", die
enddo

write(*,*) "Finished normally"

end program hanging