Why this Fortran function takes forever between printing two Hello World's

Question

The following Fortran function takes forever to print the Hello World 2 after printing Hello World 1.

program Test_Long_Run

    imp