[next] [previous] [contents]
1 %INCLUDE %FROM %CDD "CDD$TOP.BASIC.ARRAY2"
C1 ! test arrays with /old_version=CDD_arrays qualifier
C1 RECORD ARRAY_2 ! UNSPECIFIED
C1 BYTE MY_BYTE(0 TO 2) ! SIGNED BYTE
C1 STRING MY_STRING(0 TO 10) = 10 ! TEXT
C1 SINGLE MY_S_REAL(0 TO 2,0 TO 4) ! F_FLOATING
C1 DOUBLE MY_D_REAL(0 TO 2) ! D_FLOATING
C1 GFLOAT MY_G_REAL(0 TO 3) ! G_FLOATING
C1 LONG DEP_ITEM ! SIGNED LONGWORD
C1 HFLOAT MY_H_REAL(0 TO 3) ! H_FLOATING
C1 END RECORD