*     This is an ugly fortran include file to test features of fh2h.pl
      integer dimlo, dimhi
      parameter (dimlo=-2,dimhi=2) ! test1 ! test2
      common /   mycommon   /   ala   (   3 , dimlo:dimhi )   ,  cala ,  
     & miki
      integer ala  ,  bala  (  4 )  ,  cala  
      dimension  kiki ( 2 , 3 , 4  ) , miki ( - 9 : - 5  , 7 ) 
      c h a r a c t e r *1 0c h ch
      integer a l a2 0 Bal a 8u
      parameter (a l a2 0 Bal a 8u = 2 0)
      c h a r a c t e r *( a l a2 0 Bal a 8u) c h c hb
      real miki
c      character*(*) opopo
      character*20 somedata(2)
      integer intdata
      real floatdata(2)
      data somedata /'Some "\trouble"', 'more text'/
      dat aintd a t a / - 1 0 /
      data floatdata /-9.9988, 10e10/
      character *80 someline
      parameter (someline='some text')
c////// *//*/*//8***//8/*/**/*/*/*//**//**/      ///////////