program ex0301
 implicit none
 integer :: A
 real :: B
 character(len=1) :: C
 logical :: D
 A = 1
 B = 1.0
 C = '35'
 D = .TRUE.
 write(*,*) 'A = ', A,  'B = ', B, 'C = ', C,  'D = ', D
 stop
 end program ex0301