RosettaCodeData/Task/Call-a-function/Fortran/call-a-function-5.f
2016-12-05 22:15:40 +01:00

5 lines
114 B
Fortran

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