program quiz03
 character(43)::format3 = '(1x,a,a7)'
 character(12)::bird = "chicken hawk"
 character(49)::format4 = '(1x,"My favorite numbers are ",10(i2 : " and "))'
 character(11)::format5 = '(x,a, e8.3)'
1 print '(x,i3,f6.2,":")', 25,-5.0/3
2 print '(x,i2,tr4,i2)',25,117
3 print format3,"My favorite bird of prey is the ",bird
4 print format4,23,101,89,53
5 print format5, "Avagardro's number is ",6.023e23
 format5(6:8) = 'es9'
6 print format5, "Avagardro's number is ",6.023e23
 end program quiz03

The output:

  25 -1.67:
 25    **
 My favorite bird of prey is the chicken
 My favorite numbers are 23 and ** and 89 and 53
 Avagardro's number is .602E+24
 Avagardro's number is 6.023E+23