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

6 lines
112 B
Fortran

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