[next] [previous] [contents]

          1 %INCLUDE %FROM %CDD "CDD$TOP.BASIC.ARRAY1"
              C1 ! test arrays
              C1 RECORD ARRAY_1 ! 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(1 TO 3) ! D_FLOATING
              C1 GFLOAT MY_G_REAL(1 TO 4) ! G_FLOATING
              C1 HFLOAT MY_H_REAL(1 TO 4) ! H_FLOATING
              C1 END RECORD