RosettaCodeData/Task/Call-a-function/Fortran/call-a-function-5.f

6 lines
114 B
Fortran

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