1 program uninitialized_structure
3 integer month
, day
, year
7 record
/weather
/ latest
10 program initialized_structure
12 integer*1 month
/08/, day
/10/, year
/89/
13 character*20 clouds
/' overcast'/
16 record
/weather
/ latest
17 print
*, latest
.month
, latest
.day
, latest
.year
,
18 + latest
.clouds
, latest
.rainfall
21 program nested_structure
23 structure
/nested
/ level2
24 structure level3a
, level3b