program ex0308
  implicit none
  integer :: a = 1
  real :: b = 1.0
  complex :: c = (1.0, 1.0)
  character(len=1) :: d = 'A'
  logical :: e = .TRUE.
  write (*,'I3,TR1,F4.2,TR1,(F4.2,TR1,F4.2),A2,L3)') a,b,c,d,e
  stop
  end program ex0308