1 dimension common(10,10),entry(3,4),read(5,6) 2 logical save, stop, program 3 character integer, data, endif, format(10) 4 integer external,implicit, intrinsic, pause, write(5,6) 5 real complex 6 external complex 7 data data /'!'/ 8 implicit = none 9 assign = block 10 exit = assign 11 pointer = pointee 12 double = precision 13 precision = double 14 common(9,0) = continue ** dimension 15 do = double*else-end+enddo 16 entry(external,implicit) = intrinsic - pause 17 program = stop .and. save 18 if(character .lt. close) then 19 equivalence = endfile 20 else if (rewind - backspace .lt. common(1,2)) then 21 goto = do 22 if = logical 23 end if 24 if( print .eq. if) then = to 25 include = inquire 26 open = accept 27 read(5,6) write(1,2) 28 read(5,6) = write(1,2) 29 6 format(i10) 30 format(i10) = data 31 return = real 32 subroutine = then 33 call call(complex,endif) 34 integer = data 35 end 36 subroutine call (function, character) 37 external function 38 character character 39 real = 2.3 40 complex = function(real) 41 return 42 end 43 function complex(do) 44 dimension = do + 1 45 external = 1 46 complex = dimension/external 47 return 48 end 49