/*
 * Generated automatically by fh2h.pl
 * !!! DO NOT EDIT !!!
 * Edit the original fortran header file instead
 * or fix fh2h.pl if there is a translation bug.
 */


#ifndef FH2H_FH2H_TEST_FH
#define FH2H_FH2H_TEST_FH


#ifdef __cplusplus
extern "C" {
#endif


#ifndef IMPLICIT
#define IMPLICIT  /* Only to point out implicit types */
#endif


/*------ fortran header (without commons and data statements) ----------*/


/*     This is an ugly fortran include file to test features of fh2h.pl*/
/* test1 ! test2*/
#define DIMLO (-2)
#define DIMHI (2)
/*common mycommon was here*/
#define ALA20BALA8U (20)
/*      character*(*) opopo*/
/*data statement for somedata was here*/
/*data statement for intdata was here*/
/*data statement for floatdata was here*/
#define SOMELINE ("some text")
/* ////// * // * / * //8*** //8/ * / ** / * / * / * // ** // ** /      /////////// */
 
 
/*------ common blocks -------------------------------------------------*/
 
extern struct mycommon_common {
  int    ala[(DIMHI)-(DIMLO)+1][3];
  int    cala;
  float  miki[7][(-5)-(-9)+1];
} mycommon_;
#ifndef NO_EXTERN_COMMON_POINTERS
extern struct mycommon_common *mycommon;
#endif
#ifdef STATIC_COMMON_POINTERS
static struct mycommon_common *mycommon = &mycommon_;
#endif
 
 
/*------ data statements -----------------------------------------------*/
 
 
#ifndef NO_STATIC_DATA
 
#define SOMEDATA_MAX_LENGTH (20)
static char   *somedata[2] = {"Some \"\\trouble\"",  "more text"};
 
static int    intdata = -10;
 
static float  floatdata[2] = {-9.9988, 10E10};
 
 
#endif  /* #ifndef NO_STATIC_DATA */
 
 
/*------ end of fortran header -----------------------------------------*/
 
 
#ifdef __cplusplus
}
#endif
 
 
#endif  /* #ifndef FH2H_FH2H_TEST_FH */