implicit none; type outer ! outer 21
  integer :: i
  type(outer), pointer :: inner ! outer 8
end type
integer :: j ! j 12
integer, parameter :: i = 2   ! i 23
character(len=i), save :: hi = 'hi', bye = 'bye' ! i 15 hi 27 bye 38
!type(outer) :: type
type(outer) :: ty ! outer 6 ty 16
integer :: array(5) ! array 12

!type%i = type%inner%i - i ! i 25

!2      9            22
 ty%i = ty%inner%i - i

!         11   16  20   25   30   35   40
namelist /nl1/ hi, bye /nl2/ hi, /nl3/ bye
read (5, nml=nl1) ! nl1 14

!    6  9   13               30
data hi,bye,ty%i /'Hi','Bye',i/
!    6       14
data array/5*i/
!    6     12
data array(i) /3/
!     7     13  17    23    29
data (array(j), j=1,5,i) /3*i/
end