Example 1: Assign the statement number of an executable statement:
IF(LB.EQ.0) ASSIGN 9 TO K ... GO TO K ... 9 AKX = 0.0
Example 2: Assign the statement number of a format statement:
INTEGER PHORMAT 2 FORMAT ( A80 ) ASSIGN 2 TO PHORMAT ... WRITE ( *, PHORMAT ) 'Assigned a FORMAT statement no.'