mirror of
https://github.com/nasa/fpp.git
synced 2025-12-12 04:41:37 -06:00
37 lines
508 B
Fortran
37 lines
508 B
Fortran
module M {
|
|
struct S1 {
|
|
mF32: F32
|
|
mF64: F64
|
|
mI16: I16
|
|
mI32: I32
|
|
mI64: I64
|
|
mI8: I8
|
|
mU16: U16
|
|
mU32: U32
|
|
mU64: U64
|
|
mU8: U8
|
|
mBool: bool
|
|
mString: string
|
|
}
|
|
}
|
|
|
|
struct S2 {
|
|
s1: M.S1
|
|
}
|
|
|
|
module S {
|
|
@ A struct with a member array
|
|
struct S3 {
|
|
mU32Array: [3] U32
|
|
mF64: F64
|
|
}
|
|
}
|
|
|
|
@ An array of structs
|
|
array Struct1 = [5] M.S1
|
|
|
|
array Struct2 = [3] S2 @< Array of structs with struct member
|
|
|
|
@ An array of structs with array member
|
|
array Struct3 = [3] S.S3
|