libgfortran/libgfortran.h

   1 /* Common declarations for all of libgfor.
   2    Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
   3    Contributed by Paul Brook <paul@nowt.org>, and
   4    Andy Vaught <andy@xena.eas.asu.edu>
   5
   6 This file is part of the GNU Fortran 95 runtime library (libgfortran).
   7
   8 Libgfortran is free software; you can redistribute it and/or
   9 modify it under the terms of the GNU Lesser General Public
  10 License as published by the Free Software Foundation; either
  11 version 2.1 of the License, or (at your option) any later version.
  12
  13 Libgfortran is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU Lesser General Public License for more details.
  17
  18 You should have received a copy of the GNU Lesser General Public
  19 License along with libgfor; see the file COPYING.LIB.  If not,
  20 write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  21 Boston, MA 02110-1301, USA.  */
  22
  23 /* As a special exception, if you link this library with other files,
  24    some of which are compiled with GCC, to produce an executable,
  25    this library does not by itself cause the resulting executable
  26    to be covered by the GNU General Public License.
  27    This exception does not however invalidate any other reasons why
  28    the executable file might be covered by the GNU General Public License.  */
  29
  30
  31 #ifndef LIBGFOR_H
  32 #define LIBGFOR_H
  33
  34 #include <math.h>
  35 #include <stddef.h>
  36
  37 #ifndef M_PI
  38 #define M_PI 3.14159265358979323846264338327
  39 #endif
  40
  41 #if HAVE_COMPLEX_H
  42 # include <complex.h>
  43 #else
  44 #define complex __complex__
  45 #endif
  46
  47 #include "config.h"
  48 #include "c99_protos.h"
  49
  50 #if HAVE_IEEEFP_H
  51 #include <ieeefp.h>
  52 #endif
  53
  54 #if HAVE_STDINT_H
  55 #include <stdint.h>
  56 #endif
  57
  58 #if HAVE_INTTYPES_H
  59 #include <inttypes.h>
  60 #endif
  61
  62 #if !defined(HAVE_STDINT_H) && !defined(HAVE_INTTYPES_H) && defined(TARGET_ILP32)
  63 typedef char int8_t;
  64 typedef short int16_t;
  65 typedef int int32_t;
  66 typedef long long int64_t;
  67 typedef unsigned char uint8_t;
  68 #if defined(__sun) && defined(__svr4__)
  69 /* Prevent <pthread.h> from redefining uint8_t on Solaris 2.5.1
  70    FIXME when the header inclusion scheme is revisited.  */
  71 #define _UINT8_T
  72 #endif
  73 typedef unsigned short uint16_t;
  74 typedef unsigned int uint32_t;
  75 #if defined(__sun) && defined(__svr4__)
  76 /* Prevent <pthread.h> from redefining uint32_t on Solaris 2.5.1
  77    FIXME when the header inclusion scheme is revisited.  */
  78 #define _UINT32_T
  79 #endif
  80 typedef unsigned long long uint64_t;
  81 #if defined(__sun) && defined(__svr4__)
  82 /* Prevent <pthread.h> from redefining uint64_t on Solaris 2.5.1
  83    FIXME when the header inclusion scheme is revisited.  */
  84 #define _UINT64_T
  85 #endif
  86 #endif
  87
  88 #if HAVE_SYS_TYPES_H
  89 #include <sys/types.h>
  90 #endif
  91 typedef off_t gfc_offset;
  92
  93 #ifndef NULL
  94 #define NULL (void *) 0
  95 #endif
  96
  97 #ifndef __GNUC__
  98 #define __attribute__(x)
  99 #endif
 100
 101 /* For a library, a standard prefix is a requirement in order to partition
 102    the namespace.  IPREFIX is for symbols intended to be internal to the
 103    library.  */
 104 #define PREFIX(x)       _gfortran_ ## x
 105 #define IPREFIX(x)      _gfortrani_ ## x
 106
 107 /* Magic to rename a symbol at the compiler level.  You continue to refer
 108    to the symbol as OLD in the source, but it'll be named NEW in the asm.  */
 109 #define sym_rename(old, new) sym_rename1(old, __USER_LABEL_PREFIX__, new)
 110 #define sym_rename1(old, ulp, new) sym_rename2(old, ulp, new)
 111 #define sym_rename2(old, ulp, new) extern __typeof(old) old __asm__(#ulp #new)
 112
 113 /* There are several classifications of routines:
 114
 115      (1) Symbols used only within the library,
 116      (2) Symbols to be exported from the library,
 117      (3) Symbols to be exported from the library, but
 118          also used inside the library.
 119
 120    By telling the compiler about these different classifications we can
 121    tightly control the interface seen by the user, and get better code
 122    from the compiler at the same time.
 123
 124    One of the following should be used immediately after the declaration
 125    of each symbol:
 126
 127      internal_proto     Marks a symbol used only within the library,
 128                         and adds IPREFIX to the assembly-level symbol
 129                         name.  The later is important for maintaining
 130                         the namespace partition for the static library.
 131
 132      export_proto       Marks a symbol to be exported, and adds PREFIX
 133                         to the assembly-level symbol name.
 134
 135      export_proto_np    Marks a symbol to be exported without adding PREFIX.
 136
 137      iexport_proto      Marks a function to be exported, but with the
 138                         understanding that it can be used inside as well.
 139
 140      iexport_data_proto Similarly, marks a data symbol to be exported.
 141                         Unfortunately, some systems can't play the hidden
 142                         symbol renaming trick on data symbols, thanks to
 143                         the horribleness of COPY relocations.
 144
 145    If iexport_proto or iexport_data_proto is used, you must also use
 146    iexport or iexport_data after the *definition* of the symbol.  */
 147
 148 #if defined(HAVE_ATTRIBUTE_VISIBILITY)
 149 # define internal_proto(x) \
 150         sym_rename(x, IPREFIX (x)) __attribute__((__visibility__("hidden")))
 151 #else
 152 # define internal_proto(x)      sym_rename(x, IPREFIX(x))
 153 #endif
 154
 155 #if defined(HAVE_ATTRIBUTE_VISIBILITY) && defined(HAVE_ATTRIBUTE_ALIAS)
 156 # define export_proto(x)        sym_rename(x, PREFIX(x))
 157 # define export_proto_np(x)     extern char swallow_semicolon
 158 # define iexport_proto(x)       internal_proto(x)
 159 # define iexport(x)             iexport1(x, __USER_LABEL_PREFIX__, IPREFIX(x))
 160 # define iexport1(x,p,y)        iexport2(x,p,y)
 161 # define iexport2(x,p,y) \
 162         extern __typeof(x) PREFIX(x) __attribute__((__alias__(#p #y)))
 163 /* ??? We're not currently building a dll, and it's wrong to add dllexport
 164    to objects going into a static library archive.  */
 165 #elif 0 && defined(HAVE_ATTRIBUTE_DLLEXPORT)
 166 # define export_proto_np(x)     extern __typeof(x) x __attribute__((dllexport))
 167 # define export_proto(x)    sym_rename(x, PREFIX(x)) __attribute__((dllexport))
 168 # define iexport_proto(x)       export_proto(x)
 169 # define iexport(x)             extern char swallow_semicolon
 170 #else
 171 # define export_proto(x)        sym_rename(x, PREFIX(x))
 172 # define export_proto_np(x)     extern char swallow_semicolon
 173 # define iexport_proto(x)       export_proto(x)
 174 # define iexport(x)             extern char swallow_semicolon
 175 #endif
 176
 177 /* TODO: detect the case when we *can* hide the symbol.  */
 178 #define iexport_data_proto(x)   export_proto(x)
 179 #define iexport_data(x)         extern char swallow_semicolon
 180
 181 /* The only reliable way to get the offset of a field in a struct
 182    in a system independent way is via this macro.  */
 183 #ifndef offsetof
 184 #define offsetof(TYPE, MEMBER)  ((size_t) &((TYPE *) 0)->MEMBER)
 185 #endif
 186
 187 /* The isfinite macro is only available with C99, but some non-C99
 188    systems still provide fpclassify, and there is a `finite' function
 189    in BSD.
 190
 191    Also, isfinite is broken on Cygwin.
 192
 193    When isfinite is not available, try to use one of the
 194    alternatives, or bail out.  */
 195
 196 #if defined(HAVE_BROKEN_ISFINITE) || defined(__CYGWIN__)
 197 #undef isfinite
 198 #endif
 199
 200 #if defined(HAVE_BROKEN_ISNAN)
 201 #undef isnan
 202 #endif
 203
 204 #if defined(HAVE_BROKEN_FPCLASSIFY)
 205 #undef fpclassify
 206 #endif
 207
 208 #if !defined(isfinite)
 209 #if !defined(fpclassify)
 210 #define isfinite(x) ((x) - (x) == 0)
 211 #else
 212 #define isfinite(x) (fpclassify(x) != FP_NAN && fpclassify(x) != FP_INFINITE)
 213 #endif /* !defined(fpclassify) */
 214 #endif /* !defined(isfinite)  */
 215
 216 #if !defined(isnan)
 217 #if !defined(fpclassify)
 218 #define isnan(x) ((x) != (x))
 219 #else
 220 #define isnan(x) (fpclassify(x) == FP_NAN)
 221 #endif /* !defined(fpclassify) */
 222 #endif /* !defined(isfinite)  */
 223
 224 /* TODO: find the C99 version of these an move into above ifdef.  */
 225 #define REALPART(z) (__real__(z))
 226 #define IMAGPART(z) (__imag__(z))
 227 #define COMPLEX_ASSIGN(z_, r_, i_) {__real__(z_) = (r_); __imag__(z_) = (i_);}
 228
 229 #include "kinds.h"
 230
 231 /* The following two definitions must be consistent with the types used
 232    by the compiler.  */
 233 /* The type used of array indices, amongst other things.  */
 234 typedef ssize_t index_type;
 235 /* The type used for the lengths of character variables.  */
 236 typedef GFC_INTEGER_4 gfc_charlen_type;
 237
 238 /* This will be 0 on little-endian machines and one on big-endian machines.  */
 239 extern int l8_to_l4_offset;
 240 internal_proto(l8_to_l4_offset);
 241
 242 #define GFOR_POINTER_L8_TO_L4(p8) \
 243   (l8_to_l4_offset + (GFC_LOGICAL_4 *)(p8))
 244
 245 #define GFC_INTEGER_4_HUGE \
 246   (GFC_INTEGER_4)((((GFC_UINTEGER_4)1) << 31) - 1)
 247 #define GFC_INTEGER_8_HUGE \
 248   (GFC_INTEGER_8)((((GFC_UINTEGER_8)1) << 63) - 1)
 249 #ifdef HAVE_GFC_INTEGER_16
 250 #define GFC_INTEGER_16_HUGE \
 251   (GFC_INTEGER_16)((((GFC_UINTEGER_16)1) << 127) - 1)
 252 #endif
 253
 254 #define GFC_REAL_4_HUGE FLT_MAX
 255 #define GFC_REAL_8_HUGE DBL_MAX
 256 #ifdef HAVE_GFC_REAL_10
 257 #define GFC_REAL_10_HUGE LDBL_MAX
 258 #endif
 259 #ifdef HAVE_GFC_REAL_16
 260 #define GFC_REAL_16_HUGE LDBL_MAX
 261 #endif
 262
 263 #ifndef GFC_MAX_DIMENSIONS
 264 #define GFC_MAX_DIMENSIONS 7
 265 #endif
 266
 267 typedef struct descriptor_dimension
 268 {
 269   index_type stride;
 270   index_type lbound;
 271   index_type ubound;
 272 }
 273 descriptor_dimension;
 274
 275 #define GFC_ARRAY_DESCRIPTOR(r, type) \
 276 struct {\
 277   type *data;\
 278   size_t offset;\
 279   index_type dtype;\
 280   descriptor_dimension dim[r];\
 281 }
 282
 283 /* Commonly used array descriptor types.  */
 284 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, void) gfc_array_void;
 285 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, char) gfc_array_char;
 286 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_INTEGER_4) gfc_array_i4;
 287 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_INTEGER_8) gfc_array_i8;
 288 #ifdef HAVE_GFC_INTEGER_16
 289 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_INTEGER_16) gfc_array_i16;
 290 #endif
 291 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_REAL_4) gfc_array_r4;
 292 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_REAL_8) gfc_array_r8;
 293 #ifdef HAVE_GFC_REAL_10
 294 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_REAL_10) gfc_array_r10;
 295 #endif
 296 #ifdef HAVE_GFC_REAL_16
 297 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_REAL_16) gfc_array_r16;
 298 #endif
 299 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_COMPLEX_4) gfc_array_c4;
 300 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_COMPLEX_8) gfc_array_c8;
 301 #ifdef HAVE_GFC_COMPLEX_10
 302 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_COMPLEX_10) gfc_array_c10;
 303 #endif
 304 #ifdef HAVE_GFC_COMPLEX_16
 305 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_COMPLEX_16) gfc_array_c16;
 306 #endif
 307 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_LOGICAL_4) gfc_array_l4;
 308 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_LOGICAL_8) gfc_array_l8;
 309 #ifdef HAVE_GFC_LOGICAL_16
 310 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_LOGICAL_16) gfc_array_l16;
 311 #endif
 312
 313 #define GFC_DTYPE_RANK_MASK 0x07
 314 #define GFC_DTYPE_TYPE_SHIFT 3
 315 #define GFC_DTYPE_TYPE_MASK 0x38
 316 #define GFC_DTYPE_SIZE_SHIFT 6
 317
 318 enum
 319 {
 320   GFC_DTYPE_UNKNOWN = 0,
 321   GFC_DTYPE_INTEGER,
 322   /* TODO: recognize logical types.  */
 323   GFC_DTYPE_LOGICAL,
 324   GFC_DTYPE_REAL,
 325   GFC_DTYPE_COMPLEX,
 326   GFC_DTYPE_DERIVED,
 327   GFC_DTYPE_CHARACTER
 328 };
 329
 330 #define GFC_DESCRIPTOR_RANK(desc) ((desc)->dtype & GFC_DTYPE_RANK_MASK)
 331 #define GFC_DESCRIPTOR_TYPE(desc) (((desc)->dtype & GFC_DTYPE_TYPE_MASK) \
 332                                    >> GFC_DTYPE_TYPE_SHIFT)
 333 #define GFC_DESCRIPTOR_SIZE(desc) ((desc)->dtype >> GFC_DTYPE_SIZE_SHIFT)
 334 #define GFC_DESCRIPTOR_DATA(desc) ((desc)->data)
 335 #define GFC_DESCRIPTOR_DTYPE(desc) ((desc)->dtype)
 336
 337 /* Runtime library include.  */
 338 #define stringize(x) expand_macro(x)
 339 #define expand_macro(x) # x
 340
 341 /* Runtime options structure.  */
 342
 343 typedef struct
 344 {
 345   int stdin_unit, stdout_unit, stderr_unit, optional_plus;
 346   int allocate_init_flag, allocate_init_value;
 347   int locus;
 348
 349   int separator_len;
 350   const char *separator;
 351
 352   int mem_check;
 353   int use_stderr, all_unbuffered, default_recl;
 354
 355   int fpu_round, fpu_precision, fpe;
 356
 357   int sighup, sigint;
 358 }
 359 options_t;
 360
 361 extern options_t options;
 362 internal_proto(options);
 363
 364
 365 /* Compile-time options that will influence the library.  */
 366
 367 typedef struct
 368 {
 369   int warn_std;
 370   int allow_std;
 371 }
 372 compile_options_t;
 373
 374 extern compile_options_t compile_options;
 375 internal_proto(compile_options);
 376
 377 extern void init_compile_options (void);
 378 internal_proto(init_compile_options);
 379
 380
 381 /* Structure for statement options.  */
 382
 383 typedef struct
 384 {
 385   const char *name;
 386   int value;
 387 }
 388 st_option;
 389
 390 /* Runtime errors.  The EOR and EOF errors are required to be negative.  */
 391
 392 typedef enum
 393 {
 394   ERROR_FIRST = -3,             /* Marker for the first error.  */
 395   ERROR_EOR = -2,
 396   ERROR_END = -1,
 397   ERROR_OK = 0,                 /* Indicates success, must be zero.  */
 398   ERROR_OS,                     /* Operating system error, more info in errno.  */
 399   ERROR_OPTION_CONFLICT,
 400   ERROR_BAD_OPTION,
 401   ERROR_MISSING_OPTION,
 402   ERROR_ALREADY_OPEN,
 403   ERROR_BAD_UNIT,
 404   ERROR_FORMAT,
 405   ERROR_BAD_ACTION,
 406   ERROR_ENDFILE,
 407   ERROR_BAD_US,
 408   ERROR_READ_VALUE,
 409   ERROR_READ_OVERFLOW,
 410   ERROR_LAST                    /* Not a real error, the last error # + 1.  */
 411 }
 412 error_codes;
 413
 414
 415 /* Flags to specify which standard/extension contains a feature.
 416    Keep them in sync with their counterparts in gcc/fortran/gfortran.h.  */
 417 #define GFC_STD_LEGACY          (1<<6) /* Backward compatibility.  */
 418 #define GFC_STD_GNU             (1<<5)    /* GNU Fortran extension.  */
 419 #define GFC_STD_F2003           (1<<4)    /* New in F2003.  */
 420 /* Note that no features were obsoleted nor deleted in F2003.  */
 421 #define GFC_STD_F95             (1<<3)    /* New in F95.  */
 422 #define GFC_STD_F95_DEL         (1<<2)    /* Deleted in F95.  */
 423 #define GFC_STD_F95_OBS         (1<<1)    /* Obsoleted in F95.  */
 424 #define GFC_STD_F77             (1<<0)    /* Up to and including F77.  */
 425
 426 /* Bitmasks for the various FPE that can be enabled.
 427    Keep them in sync with their counterparts in gcc/fortran/gfortran.h.  */
 428 #define GFC_FPE_INVALID    (1<<0)
 429 #define GFC_FPE_DENORMAL   (1<<1)
 430 #define GFC_FPE_ZERO       (1<<2)
 431 #define GFC_FPE_OVERFLOW   (1<<3)
 432 #define GFC_FPE_UNDERFLOW  (1<<4)
 433 #define GFC_FPE_PRECISION  (1<<5)
 434
 435 /* The filename and line number don't go inside the globals structure.
 436    They are set by the rest of the program and must be linked to.  */
 437
 438 /* Location of the current library call (optional).  */
 439 extern unsigned line;
 440 iexport_data_proto(line);
 441
 442 extern char *filename;
 443 iexport_data_proto(filename);
 444
 445 /* Avoid conflicting prototypes of alloca() in system headers by using
 446    GCC's builtin alloca().  */
 447 #define gfc_alloca(x)  __builtin_alloca(x)
 448
 449
 450 /* main.c */
 451
 452 extern void stupid_function_name_for_static_linking (void);
 453 internal_proto(stupid_function_name_for_static_linking);
 454
 455 struct st_parameter_common;
 456 extern void library_start (struct st_parameter_common *);
 457 internal_proto(library_start);
 458
 459 #define library_end()
 460
 461 extern void set_args (int, char **);
 462 export_proto(set_args);
 463
 464 extern void get_args (int *, char ***);
 465 internal_proto(get_args);
 466
 467 /* error.c */
 468
 469 #define GFC_ITOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 2)
 470 #define GFC_XTOA_BUF_SIZE (sizeof (GFC_UINTEGER_LARGEST) * 2 + 1)
 471 #define GFC_OTOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 1)
 472 #define GFC_BTOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 8 + 1)
 473
 474 extern const char *gfc_itoa (GFC_INTEGER_LARGEST, char *, size_t);
 475 internal_proto(gfc_itoa);
 476
 477 extern const char *xtoa (GFC_UINTEGER_LARGEST, char *, size_t);
 478 internal_proto(xtoa);
 479
 480 extern void os_error (const char *) __attribute__ ((noreturn));
 481 internal_proto(os_error);
 482
 483 extern void show_locus (struct st_parameter_common *);
 484 internal_proto(show_locus);
 485
 486 extern void runtime_error (const char *) __attribute__ ((noreturn));
 487 iexport_proto(runtime_error);
 488
 489 extern void internal_error (struct st_parameter_common *, const char *)
 490   __attribute__ ((noreturn));
 491 internal_proto(internal_error);
 492
 493 extern const char *get_oserror (void);
 494 internal_proto(get_oserror);
 495
 496 extern void sys_exit (int) __attribute__ ((noreturn));
 497 internal_proto(sys_exit);
 498
 499 extern int st_printf (const char *, ...)
 500   __attribute__ ((format (printf, 1, 2)));
 501 internal_proto(st_printf);
 502
 503 extern void st_sprintf (char *, const char *, ...)
 504   __attribute__ ((format (printf, 2, 3)));
 505 internal_proto(st_sprintf);
 506
 507 extern const char *translate_error (int);
 508 internal_proto(translate_error);
 509
 510 extern void generate_error (struct st_parameter_common *, int, const char *);
 511 internal_proto(generate_error);
 512
 513 /* fpu.c */
 514
 515 extern void set_fpu (void);
 516 internal_proto(set_fpu);
 517
 518 /* memory.c */
 519
 520 extern void *get_mem (size_t) __attribute__ ((malloc));
 521 internal_proto(get_mem);
 522
 523 extern void free_mem (void *);
 524 internal_proto(free_mem);
 525
 526 extern void *internal_malloc_size (size_t);
 527 internal_proto(internal_malloc_size);
 528
 529 extern void internal_free (void *);
 530 iexport_proto(internal_free);
 531
 532 /* environ.c */
 533
 534 extern int check_buffered (int);
 535 internal_proto(check_buffered);
 536
 537 extern void init_variables (void);
 538 internal_proto(init_variables);
 539
 540 extern void show_variables (void);
 541 internal_proto(show_variables);
 542
 543 /* string.c */
 544
 545 extern int find_option (struct st_parameter_common *, const char *, int,
 546                         const st_option *, const char *);
 547 internal_proto(find_option);
 548
 549 extern int fstrlen (const char *, int);
 550 internal_proto(fstrlen);
 551
 552 extern void fstrcpy (char *, int, const char *, int);
 553 internal_proto(fstrcpy);
 554
 555 extern void cf_strcpy (char *, int, const char *);
 556 internal_proto(cf_strcpy);
 557
 558 /* io.c */
 559
 560 extern void init_units (void);
 561 internal_proto(init_units);
 562
 563 extern void close_units (void);
 564 internal_proto(close_units);
 565
 566 /* stop.c */
 567
 568 extern void stop_numeric (GFC_INTEGER_4);
 569 iexport_proto(stop_numeric);
 570
 571 /* reshape_packed.c */
 572
 573 extern void reshape_packed (char *, index_type, const char *, index_type,
 574                             const char *, index_type);
 575 internal_proto(reshape_packed);
 576
 577 /* Repacking functions.  */
 578
 579 /* ??? These aren't currently used by the compiler, though we
 580    certainly could do so.  */
 581 GFC_INTEGER_4 *internal_pack_4 (gfc_array_i4 *);
 582 internal_proto(internal_pack_4);
 583
 584 GFC_INTEGER_8 *internal_pack_8 (gfc_array_i8 *);
 585 internal_proto(internal_pack_8);
 586
 587 #if defined HAVE_GFC_INTEGER_16
 588 GFC_INTEGER_16 *internal_pack_16 (gfc_array_i16 *);
 589 internal_proto(internal_pack_16);
 590 #endif
 591
 592 GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *);
 593 internal_proto(internal_pack_c4);
 594
 595 GFC_COMPLEX_8 *internal_pack_c8 (gfc_array_c8 *);
 596 internal_proto(internal_pack_c8);
 597
 598 #if defined HAVE_GFC_COMPLEX_10
 599 GFC_COMPLEX_10 *internal_pack_c10 (gfc_array_c10 *);
 600 internal_proto(internal_pack_c10);
 601 #endif
 602
 603 extern void internal_unpack_4 (gfc_array_i4 *, const GFC_INTEGER_4 *);
 604 internal_proto(internal_unpack_4);
 605
 606 extern void internal_unpack_8 (gfc_array_i8 *, const GFC_INTEGER_8 *);
 607 internal_proto(internal_unpack_8);
 608
 609 #if defined HAVE_GFC_INTEGER_16
 610 extern void internal_unpack_16 (gfc_array_i16 *, const GFC_INTEGER_16 *);
 611 internal_proto(internal_unpack_16);
 612 #endif
 613
 614 extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *);
 615 internal_proto(internal_unpack_c4);
 616
 617 extern void internal_unpack_c8 (gfc_array_c8 *, const GFC_COMPLEX_8 *);
 618 internal_proto(internal_unpack_c8);
 619
 620 #if defined HAVE_GFC_COMPLEX_10
 621 extern void internal_unpack_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *);
 622 internal_proto(internal_unpack_c10);
 623 #endif
 624
 625 /* string_intrinsics.c */
 626
 627 extern GFC_INTEGER_4 compare_string (GFC_INTEGER_4, const char *,
 628                                      GFC_INTEGER_4, const char *);
 629 iexport_proto(compare_string);
 630
 631 /* random.c */
 632
 633 extern void random_seed (GFC_INTEGER_4 * size, gfc_array_i4 * put,
 634                          gfc_array_i4 * get);
 635 iexport_proto(random_seed);
 636
 637 /* normalize.c */
 638
 639 extern GFC_REAL_4 normalize_r4_i4 (GFC_UINTEGER_4, GFC_UINTEGER_4);
 640 internal_proto(normalize_r4_i4);
 641
 642 extern GFC_REAL_8 normalize_r8_i8 (GFC_UINTEGER_8, GFC_UINTEGER_8);
 643 internal_proto(normalize_r8_i8);
 644
 645 /* size.c */
 646
 647 typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, void) array_t;
 648
 649 extern index_type size0 (const array_t * array);
 650 iexport_proto(size0);
 651
 652 #endif  /* LIBGFOR_H  */