HP 3000 Manuals

HP C Programmer's Guide

Comparing Structured Data Type Declarations 

This section shows how to declare a nested structure in HP C, HP Pascal,
and HP FORTRAN 77.

HP C Nested Structure 

     struct x {
        char y [3];
        short z;
        char w [5];
     };

     struct q {
        char n;
        struct x v [2];
        double u;
        char t;
     } a;

     struct u{
        union {
           int x;
           char y[4];
        } uval;
     };

HP Pascal Nested Structure 

     TYPE
        x = RECORD
            y : PACKED ARRAY [1 .. 3] OF CHAR;
            z : SHORTINT;
            w : PACKED ARRAY [1 .. 5] OF CHAR;
            END;

        q = RECORD
            n : CHAR;
            v : PACKED ARRAY [1 .. 2] OF x;
            u : LONGREAL;
            t : CHAR;
            END;

        u = RECORD
             CASE
             Boolean OF
               TRUE : (x : INTEGER);
               FALSE: (y : ARRAY[1..4] of CHAR);
            END;
     VAR a:q;

HP FORTRAN 77 Nested Structure 

     program main
     structure /x/
             character*3 y
             integer*2 z
             character*5 w
     end structure

     structure /q/
             character n
             record /x/ v(2)
             real*8 u
             character t
     end structure
     structure /u/
             union
                     map
                         integer*4 x
                     end map
                     map
                         character*4 y
                     end map
             end union
     end structure

MPE/iX 5.0 Documentation