[next] [previous] [contents]

  !RECORD Templates
  RECORD Test1
      GROUP Group_1(4)
        STRING My_string_1 = 10
        REAL My_real_1
        INTEGER My_integer_1
      END GROUP
  END RECORD
  RECORD Test2
      GROUP Group_2
        STRING My_string_2 = 10
        REAL My_real_2
        INTEGER My_integer_2
      END GROUP
  END RECORD
  RECORD Test3
      STRING My_string_3 = 10
      REAL My_real_3
      INTEGER My_integer_3
  END RECORD
  !Declarations
  DECLARE Test1 First_test1, &
                        Second_test1, &
                        Array_of_test1(3)
  DECLARE Test2 First_test2
  DECLARE Test3 First_test3, &
                        Array_of_test3(10)
  !Program logic starts here
  ! A single RECORD instance is assigned to another single instance
  First_test1 = Second_test1
  ! An array element is assigned to a single instance
  Second_test1 = Array_of_test1(2)
  ! And vice versa
  Array_of_test1(2) = Second_test1