Confusion in fork join ... disable fork

SystemVerilog
18

In reply to dave_59:

Hi Dave,

For the below example , as main task is calling the dev_state task which contains disable_fork .
Then as per LRM Std 1800-2012 , disable fork will kill all the remaining threads of main task also right .

So the output should be
5 THREAD 1
10 THREAD 3
10 After task call

Could you please let me know whether my understanding is correct

module test; 
initial begin 
           main(); 
        end 
task main();
  fork 
    #5  $display($time,,"THREAD 1"); 
    #25 $display($time,,"THREAD 2"); 
  join_any 
  dev_state(); 
  $display($time,,"After task call"); 
  #100 $finish; 
endtask 

task dev_state();
  fork 
     #5  $display($time,,"THREAD 3");
     #10 $display($time,,"THREAD 4"); 
  join_any 
  disable fork;
endtask 
endmodule