RosettaCodeData/Task/Boolean-values/Fortran/boolean-values-2.f

6 lines
117 B
Fortran

TYPE MIXED
LOGICAL*1 LIVE(100)
REAL*8 VALUE(100)
END TYPE MIXED
TYPE(MIXED) STUFF