```pascal
// Block Type: FC
// Block Name (Original): GNS PLCdia Profinet
// Block Number: 2415
// Original Network Languages: STL, LAD
// Block Comment:
//   (c) by SIDEL
//   Name       : General Safety: PLC Diagnostic: Profinet Node Diagnostic
//   Description:
//    Function: General Safety 
//    Module  : PLC Diagnostic
//    Option  : Profinet Node Diagnostic
//    - PLC Profinet Node Diagnostic Control Logic with SFC51 "RDSYSST"
//   --------------------------------------------------------------------------------

FUNCTION "GNS_PLCdia_Profinet" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

BEGIN

  // Network 1: Diagnostic Memory (Original Language: STL)
  //   - Request Memory

  // --- BEGIN STL Network 1 ---
   
     	A	"GNS PLCdia ProfinetData".I_O_FLT1
     	O	"GNS PLCdia ProfinetData".I_O_FLT2
     	O	"GNS PLCdia ProfinetData".RACK_FLT
     	O	"GNS PLCdia ProfinetData".COMPLETE_RESTART
     	O_BRACK
     	A	"GNS PLCdia ProfinetData".Device_status[0]
     	A	"gIN_ResetBtn"
     	BRACKET
     	S	"GNS PLCdia ProfinetData".State_REQ
     	R	"GNS PLCdia ProfinetData".I_O_FLT1
     	R	"GNS PLCdia ProfinetData".I_O_FLT2
     	R	"GNS PLCdia ProfinetData".RACK_FLT
     	R	"GNS PLCdia ProfinetData".COMPLETE_RESTART
   
  // --- END STL Network 1 ---

  // Network 2: Diagnostic Call (Original Language: LAD)

  // Network 2 did not produce printable SCL code.

  // Network 3: Profinet Network Fault (Original Language: LAD)

  IF "gIN_ResetBtn" THEN
    "PNetF" := FALSE;
  END_IF;

  IF "GNS PLCdia ProfinetData"."Device_status" THEN
    "PNetF" := TRUE;
  END_IF;

END_FUNCTION

```