RosettaCodeData/Task/Call-a-function/Fortran/call-a-function-5.f
2023-07-01 13:44:08 -04:00

5 lines
114 B
Fortran

TYPE MIXED
CHARACTER*12 NAME
INTEGER STUFF
END TYPE MIXED
TYPE(MIXED) LOTS(12000)