]> git.ipfire.org Git - thirdparty/gcc.git/blame - libgfortran/libgfortran.h
projects / thirdparty / gcc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fortran: fix sm computation in CFI_allocate [PR93524]
[thirdparty/gcc.git] / libgfortran / libgfortran.h
CommitLineData
4c4b3eb0 1/* Common declarations for all of libgfortran.
99dee823 2 Copyright (C) 2002-2021 Free Software Foundation, Inc.
6de9cd9a
DN		 3 Contributed by Paul Brook <paul@nowt.org>, and
4 Andy Vaught <andy@xena.eas.asu.edu>
5
bb408e87 6This file is part of the GNU Fortran runtime library (libgfortran).
6de9cd9a 7
748086b7
JJ		 8Libgfortran is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 3, or (at your option)
11any later version.
6de9cd9a 12
57dea9f6 13Libgfortran is distributed in the hope that it will be useful,
6de9cd9a
DN		 14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
748086b7 16GNU General Public License for more details.
6de9cd9a 17
748086b7
JJ		 18Under Section 7 of GPL version 3, you are granted additional
19permissions described in the GCC Runtime Library Exception, version
203.1, as published by the Free Software Foundation.
57dea9f6 21
748086b7
JJ		 22You should have received a copy of the GNU General Public License and
23a copy of the GCC Runtime Library Exception along with this program;
24see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
25<http://www.gnu.org/licenses/>. */
6de9cd9a
DN		 26
27#ifndef LIBGFOR_H
28#define LIBGFOR_H
29
196c8bc8
KT		 30/* Ensure that ANSI conform stdio is used. This needs to be set before
31 any system header file is included. */
32#if defined __MINGW32__
33# define _POSIX 1
34# define gfc_printf gnu_printf
35#else
36# define gfc_printf __printf__
37#endif
38
200809cb
DE		 39/* config.h MUST be first because it can affect system headers. */
40#include "config.h"
41
d8163f5c 42#include <stdio.h>
887d9b8b 43#include <stdlib.h>
6de9cd9a 44#include <stddef.h>
cdc5524f 45#include <float.h>
7f763922 46#include <stdarg.h>
f5e3ed2d 47#include <stdbool.h>
6de9cd9a 48
62755fd5
TG		 49#if HAVE_COMPLEX_H
50/* Must appear before math.h on VMS systems. */
51# include <complex.h>
52#else
53#define complex __complex__
54#endif
55
56#include <math.h>
57
1ec601bf
FXC		 58/* If we're support quad-precision floating-point type, include the
59 header to our support library. */
60#ifdef HAVE_FLOAT128
61# include "quadmath_weak.h"
62#endif
63
196c8bc8
KT		 64#ifdef __MINGW32__
65extern float __strtof (const char *, char **);
66#define gfc_strtof __strtof
67extern double __strtod (const char *, char **);
68#define gfc_strtod __strtod
69extern long double __strtold (const char *, char **);
70#define gfc_strtold __strtold
71#else
72#define gfc_strtof strtof
73#define gfc_strtod strtod
74#define gfc_strtold strtold
75#endif
76
d74b97cc
FXC		 77#include "../gcc/fortran/libgfortran.h"
78
1409cd0b
FXC		 79#include "c99_protos.h"
80
6e4d9244
EB		 81#if HAVE_IEEEFP_H
82#include <ieeefp.h>
83#endif
84
4c4b3eb0 85#include "gstdint.h"
3969c39f 86
6de9cd9a
DN		 87#if HAVE_SYS_TYPES_H
88#include <sys/types.h>
89#endif
a4384bad 90
edaaef60
JB		 91#ifdef HAVE_SYS_UIO_H
92#include <sys/uio.h>
93#endif
94
a4384bad
JB		 95#ifdef __MINGW32__
96typedef off64_t gfc_offset;
97#else
81f4be3c 98typedef off_t gfc_offset;
a4384bad 99#endif
6de9cd9a
DN		 100
101#ifndef NULL
102#define NULL (void *) 0
103#endif
104
433d6b39
TB		 105
106/* The following macros can be used to annotate conditions which are likely or
107 unlikely to be true. Avoid using them when a condition is only slightly
108 more likely/less unlikely than average to avoid the performance penalties of
109 branch misprediction. In addition, as __builtin_expect overrides the compiler
110 heuristic, do not use in conditions where one of the branches ends with a
111 call to a function with __attribute__((noreturn)): the compiler internal
112 heuristic will mark this branch as much less likely as unlikely() would
113 do. */
114
9731c4a3
TB		 115#define likely(x) __builtin_expect(!!(x), 1)
116#define unlikely(x) __builtin_expect(!!(x), 0)
6de9cd9a 117
20305b50
TK		 118/* This macro can be used to annotate conditions which we know to
119 be true, so that the compiler can optimize based on the condition. */
120
121#define GFC_ASSERT(EXPR) \
122 ((void)(__builtin_expect (!(EXPR), 0) ? __builtin_unreachable (), 0 : 0))
0dce3ca1 123
44720bef
JB		 124/* Make sure we have ptrdiff_t. */
125#ifndef HAVE_PTRDIFF_T
126typedef intptr_t ptrdiff_t;
c7d0f4d5
TK		 127#endif
128
db8092dc
FXC		 129/* On mingw, work around the buggy Windows snprintf() by using the one
130 mingw provides, __mingw_snprintf(). We also provide a prototype for
131 __mingw_snprintf(), because the mingw headers currently don't have one. */
132#if HAVE_MINGW_SNPRINTF
9731c4a3 133extern int __mingw_snprintf (char *, size_t, const char *, ...)
6a21bcbe 134 __attribute__ ((format (gnu_printf, 3, 4)));
db8092dc
FXC		 135#undef snprintf
136#define snprintf __mingw_snprintf
d30fe1c5
JB		 137/* Fallback to sprintf if target does not have snprintf. */
138#elif !defined(HAVE_SNPRINTF)
139#undef snprintf
140#define snprintf(str, size, ...) sprintf (str, __VA_ARGS__)
db8092dc
FXC		 141#endif
142
143
7d7b8bfe
RH		 144/* For a library, a standard prefix is a requirement in order to partition
145 the namespace. IPREFIX is for symbols intended to be internal to the
146 library. */
147#define PREFIX(x) _gfortran_ ## x
148#define IPREFIX(x) _gfortrani_ ## x
149
150/* Magic to rename a symbol at the compiler level. You continue to refer
151 to the symbol as OLD in the source, but it'll be named NEW in the asm. */
152#define sym_rename(old, new) sym_rename1(old, __USER_LABEL_PREFIX__, new)
153#define sym_rename1(old, ulp, new) sym_rename2(old, ulp, new)
154#define sym_rename2(old, ulp, new) extern __typeof(old) old __asm__(#ulp #new)
155
156/* There are several classifications of routines:
157
158 (1) Symbols used only within the library,
159 (2) Symbols to be exported from the library,
160 (3) Symbols to be exported from the library, but
161 also used inside the library.
162
163 By telling the compiler about these different classifications we can
164 tightly control the interface seen by the user, and get better code
165 from the compiler at the same time.
166
167 One of the following should be used immediately after the declaration
168 of each symbol:
169
170 internal_proto Marks a symbol used only within the library,
171 and adds IPREFIX to the assembly-level symbol
172 name. The later is important for maintaining
173 the namespace partition for the static library.
174
175 export_proto Marks a symbol to be exported, and adds PREFIX
176 to the assembly-level symbol name.
177
178 export_proto_np Marks a symbol to be exported without adding PREFIX.
179
180 iexport_proto Marks a function to be exported, but with the
181 understanding that it can be used inside as well.
182
183 iexport_data_proto Similarly, marks a data symbol to be exported.
184 Unfortunately, some systems can't play the hidden
185 symbol renaming trick on data symbols, thanks to
186 the horribleness of COPY relocations.
187
188 If iexport_proto or iexport_data_proto is used, you must also use
189 iexport or iexport_data after the *definition* of the symbol. */
190
191#if defined(HAVE_ATTRIBUTE_VISIBILITY)
192# define internal_proto(x) \
193 sym_rename(x, IPREFIX (x)) __attribute__((__visibility__("hidden")))
194#else
195# define internal_proto(x) sym_rename(x, IPREFIX(x))
196#endif
197
198#if defined(HAVE_ATTRIBUTE_VISIBILITY) && defined(HAVE_ATTRIBUTE_ALIAS)
199# define export_proto(x) sym_rename(x, PREFIX(x))
200# define export_proto_np(x) extern char swallow_semicolon
201# define iexport_proto(x) internal_proto(x)
3075a4cd
FXC		 202# define iexport(x) iexport1(x, IPREFIX(x))
203# define iexport1(x,y) iexport2(x,y)
204# define iexport2(x,y) \
29d24852 205 extern __typeof(x) PREFIX(x) __attribute__((__alias__(#y), __copy__ (x)))
7d7b8bfe
RH		 206#else
207# define export_proto(x) sym_rename(x, PREFIX(x))
208# define export_proto_np(x) extern char swallow_semicolon
209# define iexport_proto(x) export_proto(x)
210# define iexport(x) extern char swallow_semicolon
211#endif
212
213/* TODO: detect the case when we *can* hide the symbol. */
214#define iexport_data_proto(x) export_proto(x)
215#define iexport_data(x) extern char swallow_semicolon
6de9cd9a
DN		 216
217/* The only reliable way to get the offset of a field in a struct
218 in a system independent way is via this macro. */
219#ifndef offsetof
220#define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *) 0)->MEMBER)
221#endif
222
b1012ca4
FXC		 223/* The C99 classification macros isfinite, isinf, isnan, isnormal
224 and signbit are broken or inconsistent on quite a few targets.
225 So, we use GCC's builtins instead.
e88334a6 226
b1012ca4
FXC		 227 Another advantage for GCC's builtins for these type-generic macros
228 is that it handles floating-point types that the system headers
229 may not support (like __float128). */
e88334a6 230
118ea208 231#undef isnan
b1012ca4
FXC		 232#define isnan(x) __builtin_isnan(x)
233#undef isfinite
234#define isfinite(x) __builtin_isfinite(x)
235#undef isinf
236#define isinf(x) __builtin_isinf(x)
237#undef isnormal
238#define isnormal(x) __builtin_isnormal(x)
239#undef signbit
240#define signbit(x) __builtin_signbit(x)
69d3c9a4 241
32aa3bff 242#include "kinds.h"
6de9cd9a 243
566ffce8
JD		 244/* Define the type used for the current record number for large file I/O.
245 The size must be consistent with the size defined on the compiler side. */
246#ifdef HAVE_GFC_INTEGER_8
91b30ee5 247typedef GFC_INTEGER_8 GFC_IO_INT;
566ffce8
JD		 248#else
249#ifdef HAVE_GFC_INTEGER_4
91b30ee5 250typedef GFC_INTEGER_4 GFC_IO_INT;
566ffce8
JD		 251#else
252#error "GFC_INTEGER_4 should be available for the library to compile".
253#endif
254#endif
255
da17f559
PB		 256/* The following two definitions must be consistent with the types used
257 by the compiler. */
258/* The type used of array indices, amongst other things. */
44720bef 259typedef ptrdiff_t index_type;
4b267817 260
d7177ab2 261/* The type used for the lengths of character variables. */
f622221a 262typedef size_t gfc_charlen_type;
6de9cd9a 263
4b267817
FXC		 264/* Definitions of CHARACTER data types:
265 - CHARACTER(KIND=1) corresponds to the C char type,
266 - CHARACTER(KIND=4) corresponds to an unsigned 32-bit integer. */
267typedef GFC_UINTEGER_4 gfc_char4_t;
268
269/* Byte size of character kinds. For the kinds currently supported, it's
270 simply equal to the kind parameter itself. */
271#define GFC_SIZE_OF_CHAR_KIND(kind) (kind)
272
28dc6b33 273#define GFOR_POINTER_TO_L1(p, kind) \
5675291d 274 ((__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__ ? 1: 0) * (kind - 1) + (GFC_LOGICAL_1 *)(p))
6de9cd9a 275
567c915b
TK		 276#define GFC_INTEGER_1_HUGE \
277 (GFC_INTEGER_1)((((GFC_UINTEGER_1)1) << 7) - 1)
278#define GFC_INTEGER_2_HUGE \
279 (GFC_INTEGER_2)((((GFC_UINTEGER_2)1) << 15) - 1)
6de9cd9a
DN		 280#define GFC_INTEGER_4_HUGE \
281 (GFC_INTEGER_4)((((GFC_UINTEGER_4)1) << 31) - 1)
282#define GFC_INTEGER_8_HUGE \
283 (GFC_INTEGER_8)((((GFC_UINTEGER_8)1) << 63) - 1)
644cb69f
FXC		 284#ifdef HAVE_GFC_INTEGER_16
285#define GFC_INTEGER_16_HUGE \
286 (GFC_INTEGER_16)((((GFC_UINTEGER_16)1) << 127) - 1)
287#endif
288
80927a56
JJ		 289/* M{IN,AX}{LOC,VAL} need also infinities and NaNs if supported. */
290
c87cce5a 291#if __FLT_HAS_INFINITY__
80927a56
JJ		 292# define GFC_REAL_4_INFINITY __builtin_inff ()
293#endif
c87cce5a 294#if __DBL_HAS_INFINITY__
80927a56
JJ		 295# define GFC_REAL_8_INFINITY __builtin_inf ()
296#endif
c87cce5a 297#if __LDBL_HAS_INFINITY__
80927a56
JJ		 298# ifdef HAVE_GFC_REAL_10
299# define GFC_REAL_10_INFINITY __builtin_infl ()
300# endif
301# ifdef HAVE_GFC_REAL_16
1ec601bf
FXC		 302# ifdef GFC_REAL_16_IS_LONG_DOUBLE
303# define GFC_REAL_16_INFINITY __builtin_infl ()
304# else
305# define GFC_REAL_16_INFINITY __builtin_infq ()
306# endif
80927a56
JJ		 307# endif
308#endif
c87cce5a 309#if __FLT_HAS_QUIET_NAN__
80927a56
JJ		 310# define GFC_REAL_4_QUIET_NAN __builtin_nanf ("")
311#endif
c87cce5a 312#if __DBL_HAS_QUIET_NAN__
80927a56
JJ		 313# define GFC_REAL_8_QUIET_NAN __builtin_nan ("")
314#endif
c87cce5a 315#if __LDBL_HAS_QUIET_NAN__
80927a56
JJ		 316# ifdef HAVE_GFC_REAL_10
317# define GFC_REAL_10_QUIET_NAN __builtin_nanl ("")
318# endif
319# ifdef HAVE_GFC_REAL_16
1ec601bf
FXC		 320# ifdef GFC_REAL_16_IS_LONG_DOUBLE
321# define GFC_REAL_16_QUIET_NAN __builtin_nanl ("")
322# else
323# define GFC_REAL_16_QUIET_NAN nanq ("")
324# endif
80927a56
JJ		 325# endif
326#endif
6de9cd9a
DN		 327
328typedef struct descriptor_dimension
329{
dfb55fdc 330 index_type _stride;
21d1335b 331 index_type lower_bound;
dfb55fdc 332 index_type _ubound;
6de9cd9a
DN		 333}
334descriptor_dimension;
335
7fb43006
PT		 336typedef struct dtype_type
337{
338 size_t elem_len;
339 int version;
340 signed char rank;
341 signed char type;
342 signed short attribute;
343}
344dtype_type;
345
e9bfdf18 346#define GFC_ARRAY_DESCRIPTOR(type) \
6de9cd9a 347struct {\
21d1335b 348 type *base_addr;\
efd4dc1a 349 size_t offset;\
7fb43006 350 dtype_type dtype;\
ff3598bc 351 index_type span;\
e9bfdf18 352 descriptor_dimension dim[];\
6de9cd9a
DN		 353}
354
355/* Commonly used array descriptor types. */
e9bfdf18
TK		 356typedef GFC_ARRAY_DESCRIPTOR (void) gfc_array_void;
357typedef GFC_ARRAY_DESCRIPTOR (char) gfc_array_char;
358typedef GFC_ARRAY_DESCRIPTOR (GFC_INTEGER_1) gfc_array_i1;
359typedef GFC_ARRAY_DESCRIPTOR (GFC_INTEGER_2) gfc_array_i2;
360typedef GFC_ARRAY_DESCRIPTOR (GFC_INTEGER_4) gfc_array_i4;
361typedef GFC_ARRAY_DESCRIPTOR (GFC_INTEGER_8) gfc_array_i8;
01ce9e31 362typedef GFC_ARRAY_DESCRIPTOR (index_type) gfc_array_index_type;
644cb69f 363#ifdef HAVE_GFC_INTEGER_16
e9bfdf18 364typedef GFC_ARRAY_DESCRIPTOR (GFC_INTEGER_16) gfc_array_i16;
644cb69f 365#endif
e9bfdf18
TK		 366typedef GFC_ARRAY_DESCRIPTOR (GFC_REAL_4) gfc_array_r4;
367typedef GFC_ARRAY_DESCRIPTOR (GFC_REAL_8) gfc_array_r8;
644cb69f 368#ifdef HAVE_GFC_REAL_10
e9bfdf18 369typedef GFC_ARRAY_DESCRIPTOR (GFC_REAL_10) gfc_array_r10;
644cb69f
FXC		 370#endif
371#ifdef HAVE_GFC_REAL_16
e9bfdf18 372typedef GFC_ARRAY_DESCRIPTOR (GFC_REAL_16) gfc_array_r16;
644cb69f 373#endif
e9bfdf18
TK		 374typedef GFC_ARRAY_DESCRIPTOR (GFC_COMPLEX_4) gfc_array_c4;
375typedef GFC_ARRAY_DESCRIPTOR (GFC_COMPLEX_8) gfc_array_c8;
644cb69f 376#ifdef HAVE_GFC_COMPLEX_10
e9bfdf18 377typedef GFC_ARRAY_DESCRIPTOR (GFC_COMPLEX_10) gfc_array_c10;
644cb69f
FXC		 378#endif
379#ifdef HAVE_GFC_COMPLEX_16
e9bfdf18 380typedef GFC_ARRAY_DESCRIPTOR (GFC_COMPLEX_16) gfc_array_c16;
644cb69f 381#endif
e9bfdf18
TK		 382typedef GFC_ARRAY_DESCRIPTOR (GFC_LOGICAL_1) gfc_array_l1;
383typedef GFC_ARRAY_DESCRIPTOR (GFC_LOGICAL_2) gfc_array_l2;
384typedef GFC_ARRAY_DESCRIPTOR (GFC_LOGICAL_4) gfc_array_l4;
385typedef GFC_ARRAY_DESCRIPTOR (GFC_LOGICAL_8) gfc_array_l8;
644cb69f 386#ifdef HAVE_GFC_LOGICAL_16
e9bfdf18 387typedef GFC_ARRAY_DESCRIPTOR (GFC_LOGICAL_16) gfc_array_l16;
644cb69f 388#endif
01ce9e31
TK		 389
390typedef GFC_ARRAY_DESCRIPTOR (GFC_UINTEGER_1) gfc_array_s1;
391typedef GFC_ARRAY_DESCRIPTOR (GFC_UINTEGER_4) gfc_array_s4;
6de9cd9a 392
e9bfdf18
TK		 393/* These are for when you actually want to declare a descriptor, as
394 opposed to a pointer to it. */
395
396#define GFC_FULL_ARRAY_DESCRIPTOR(r, type) \
397struct {\
398 type *base_addr;\
399 size_t offset;\
400 dtype_type dtype;\
401 index_type span;\
402 descriptor_dimension dim[r];\
403}
404
405typedef GFC_FULL_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_INTEGER_4) gfc_full_array_i4;
406
7fb43006
PT		 407#define GFC_DESCRIPTOR_RANK(desc) ((desc)->dtype.rank)
408#define GFC_DESCRIPTOR_TYPE(desc) ((desc)->dtype.type)
409#define GFC_DESCRIPTOR_SIZE(desc) ((desc)->dtype.elem_len)
21d1335b 410#define GFC_DESCRIPTOR_DATA(desc) ((desc)->base_addr)
6de9cd9a 411#define GFC_DESCRIPTOR_DTYPE(desc) ((desc)->dtype)
d514626e 412#define GFC_DESCRIPTOR_SPAN(desc) ((desc)->span)
6de9cd9a 413
21d1335b 414#define GFC_DIMENSION_LBOUND(dim) ((dim).lower_bound)
dfb55fdc
TK		 415#define GFC_DIMENSION_UBOUND(dim) ((dim)._ubound)
416#define GFC_DIMENSION_STRIDE(dim) ((dim)._stride)
21d1335b 417#define GFC_DIMENSION_EXTENT(dim) ((dim)._ubound + 1 - (dim).lower_bound)
dfb55fdc
TK		 418#define GFC_DIMENSION_SET(dim,lb,ub,str) \
419 do \
420 { \
21d1335b 421 (dim).lower_bound = lb; \
dfb55fdc
TK		 422 (dim)._ubound = ub; \
423 (dim)._stride = str; \
424 } while (0)
425
426
21d1335b 427#define GFC_DESCRIPTOR_LBOUND(desc,i) ((desc)->dim[i].lower_bound)
dfb55fdc
TK		 428#define GFC_DESCRIPTOR_UBOUND(desc,i) ((desc)->dim[i]._ubound)
429#define GFC_DESCRIPTOR_EXTENT(desc,i) ((desc)->dim[i]._ubound + 1 \
21d1335b 430 - (desc)->dim[i].lower_bound)
dfb55fdc
TK		 431#define GFC_DESCRIPTOR_EXTENT_BYTES(desc,i) \
432 (GFC_DESCRIPTOR_EXTENT(desc,i) * GFC_DESCRIPTOR_SIZE(desc))
433
434#define GFC_DESCRIPTOR_STRIDE(desc,i) ((desc)->dim[i]._stride)
435#define GFC_DESCRIPTOR_STRIDE_BYTES(desc,i) \
436 (GFC_DESCRIPTOR_STRIDE(desc,i) * GFC_DESCRIPTOR_SIZE(desc))
437
75f2543f
TK		 438/* Macros to get both the size and the type with a single masking operation */
439
c276d605 440#define GFC_DTYPE_SIZE_MASK (-((index_type) 1 << GFC_DTYPE_SIZE_SHIFT))
75f2543f
TK		 441#define GFC_DTYPE_TYPE_SIZE_MASK (GFC_DTYPE_SIZE_MASK | GFC_DTYPE_TYPE_MASK)
442
7fb43006
PT		 443#define GFC_DTYPE_TYPE_SIZE(desc) (( ((desc)->dtype.type << GFC_DTYPE_TYPE_SHIFT) \
444 | ((desc)->dtype.elem_len << GFC_DTYPE_SIZE_SHIFT) ) & GFC_DTYPE_TYPE_SIZE_MASK)
75f2543f 445
fa3c4d47
TK		 446/* Macros to set size and type information. */
447
448#define GFC_DTYPE_COPY(a,b) do { (a)->dtype = (b)->dtype; } while(0)
7fb43006
PT		 449#define GFC_DTYPE_IS_UNSET(a) (unlikely((a)->dtype.elem_len == 0))
450#define GFC_DTYPE_CLEAR(a) do { (a)->dtype.elem_len = 0; \
451 (a)->dtype.version = 0; \
452 (a)->dtype.rank = 0; \
453 (a)->dtype.type = 0; \
454 (a)->dtype.attribute = 0; \
455} while(0)
fa3c4d47 456
a11930ba 457#define GFC_DTYPE_INTEGER_1 ((BT_INTEGER << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 458 | (sizeof(GFC_INTEGER_1) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 459#define GFC_DTYPE_INTEGER_2 ((BT_INTEGER << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 460 | (sizeof(GFC_INTEGER_2) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 461#define GFC_DTYPE_INTEGER_4 ((BT_INTEGER << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 462 | (sizeof(GFC_INTEGER_4) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 463#define GFC_DTYPE_INTEGER_8 ((BT_INTEGER << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 464 | (sizeof(GFC_INTEGER_8) << GFC_DTYPE_SIZE_SHIFT))
465#ifdef HAVE_GFC_INTEGER_16
a11930ba 466#define GFC_DTYPE_INTEGER_16 ((BT_INTEGER << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 467 | (sizeof(GFC_INTEGER_16) << GFC_DTYPE_SIZE_SHIFT))
468#endif
469
a11930ba 470#define GFC_DTYPE_LOGICAL_1 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 471 | (sizeof(GFC_LOGICAL_1) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 472#define GFC_DTYPE_LOGICAL_2 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 473 | (sizeof(GFC_LOGICAL_2) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 474#define GFC_DTYPE_LOGICAL_4 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 475 | (sizeof(GFC_LOGICAL_4) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 476#define GFC_DTYPE_LOGICAL_8 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 477 | (sizeof(GFC_LOGICAL_8) << GFC_DTYPE_SIZE_SHIFT))
478#ifdef HAVE_GFC_LOGICAL_16
a11930ba 479#define GFC_DTYPE_LOGICAL_16 ((BT_LOGICAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 480 | (sizeof(GFC_LOGICAL_16) << GFC_DTYPE_SIZE_SHIFT))
481#endif
482
a11930ba 483#define GFC_DTYPE_REAL_4 ((BT_REAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 484 | (sizeof(GFC_REAL_4) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 485#define GFC_DTYPE_REAL_8 ((BT_REAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 486 | (sizeof(GFC_REAL_8) << GFC_DTYPE_SIZE_SHIFT))
487#ifdef HAVE_GFC_REAL_10
a11930ba 488#define GFC_DTYPE_REAL_10 ((BT_REAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 489 | (sizeof(GFC_REAL_10) << GFC_DTYPE_SIZE_SHIFT))
490#endif
491#ifdef HAVE_GFC_REAL_16
a11930ba 492#define GFC_DTYPE_REAL_16 ((BT_REAL << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 493 | (sizeof(GFC_REAL_16) << GFC_DTYPE_SIZE_SHIFT))
494#endif
495
a11930ba 496#define GFC_DTYPE_COMPLEX_4 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
75f2543f 497 | (sizeof(GFC_COMPLEX_4) << GFC_DTYPE_SIZE_SHIFT))
a11930ba 498#define GFC_DTYPE_COMPLEX_8 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 499 | (sizeof(GFC_COMPLEX_8) << GFC_DTYPE_SIZE_SHIFT))
500#ifdef HAVE_GFC_COMPLEX_10
a11930ba 501#define GFC_DTYPE_COMPLEX_10 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 502 | (sizeof(GFC_COMPLEX_10) << GFC_DTYPE_SIZE_SHIFT))
503#endif
504#ifdef HAVE_GFC_COMPLEX_16
a11930ba 505#define GFC_DTYPE_COMPLEX_16 ((BT_COMPLEX << GFC_DTYPE_TYPE_SHIFT) \
75f2543f
TK		 506 | (sizeof(GFC_COMPLEX_16) << GFC_DTYPE_SIZE_SHIFT))
507#endif
508
c7d0f4d5
TK		 509/* Macros to determine the alignment of pointers. */
510
511#define GFC_UNALIGNED_2(x) (((uintptr_t)(x)) & \
512 (__alignof__(GFC_INTEGER_2) - 1))
513#define GFC_UNALIGNED_4(x) (((uintptr_t)(x)) & \
514 (__alignof__(GFC_INTEGER_4) - 1))
515#define GFC_UNALIGNED_8(x) (((uintptr_t)(x)) & \
516 (__alignof__(GFC_INTEGER_8) - 1))
517#ifdef HAVE_GFC_INTEGER_16
518#define GFC_UNALIGNED_16(x) (((uintptr_t)(x)) & \
519 (__alignof__(GFC_INTEGER_16) - 1))
520#endif
521
c2b00cdc
TK		 522#define GFC_UNALIGNED_C4(x) (((uintptr_t)(x)) & \
523 (__alignof__(GFC_COMPLEX_4) - 1))
524
525#define GFC_UNALIGNED_C8(x) (((uintptr_t)(x)) & \
526 (__alignof__(GFC_COMPLEX_8) - 1))
527
6de9cd9a
DN		 528/* Runtime library include. */
529#define stringize(x) expand_macro(x)
530#define expand_macro(x) # x
531
532/* Runtime options structure. */
533
534typedef struct
535{
fbac3363 536 int stdin_unit, stdout_unit, stderr_unit, optional_plus;
6de9cd9a
DN		 537 int locus;
538
539 int separator_len;
540 const char *separator;
541
67c24a8b 542 int all_unbuffered, unbuffered_preconnected;
de8bd142 543 int fpe, backtrace;
c37b0163 544 int unformatted_buffer_size, formatted_buffer_size;
6de9cd9a
DN		 545}
546options_t;
547
6de9cd9a 548extern options_t options;
7d7b8bfe 549internal_proto(options);
6de9cd9a 550
de8bd142
JB		 551extern void backtrace_handler (int);
552internal_proto(backtrace_handler);
2b840e50 553
6de9cd9a 554
8b67b708
FXC		 555/* Compile-time options that will influence the library. */
556
557typedef struct
558{
559 int warn_std;
560 int allow_std;
5f8f5313 561 int pedantic;
eaa90d25 562 int convert;
868d75db 563 int backtrace;
2bb6de3a 564 int sign_zero;
d67ab5ee 565 size_t record_marker;
07b3bbf2 566 int max_subrecord_length;
bdcfceb4 567 int bounds_check;
fa86f4f9 568 int fpe_summary;
8b67b708
FXC		 569}
570compile_options_t;
571
572extern compile_options_t compile_options;
573internal_proto(compile_options);
574
e55a7487
AJ		 575extern void init_compile_options (void);
576internal_proto(init_compile_options);
8b67b708 577
07b3bbf2 578#define GFC_MAX_SUBRECORD_LENGTH 2147483639 /* 2**31 - 9 */
8b67b708 579
6de9cd9a
DN		 580/* Structure for statement options. */
581
582typedef struct
583{
584 const char *name;
585 int value;
586}
587st_option;
588
8b67b708 589
8f0d39a8
FXC		 590/* This is returned by notification_std to know if, given the flags
591 that were given (-std=, -pedantic) we should issue an error, a warning
592 or nothing. */
593typedef enum
b2ef02df 594{ NOTIFICATION_SILENT, NOTIFICATION_WARNING, NOTIFICATION_ERROR }
8f0d39a8
FXC		 595notification;
596
2e444427 597
6de9cd9a
DN		 598/* The filename and line number don't go inside the globals structure.
599 They are set by the rest of the program and must be linked to. */
600
7d7b8bfe
RH		 601/* Location of the current library call (optional). */
602extern unsigned line;
603iexport_data_proto(line);
6de9cd9a 604
6de9cd9a 605extern char *filename;
7d7b8bfe 606iexport_data_proto(filename);
6de9cd9a
DN		 607
608
0dce3ca1
FXC		 609#define CHARACTER2(name) \
610 gfc_charlen_type name ## _len; \
611 char * name
612
613typedef struct st_parameter_common
614{
615 GFC_INTEGER_4 flags;
616 GFC_INTEGER_4 unit;
617 const char *filename;
618 GFC_INTEGER_4 line;
619 CHARACTER2 (iomsg);
620 GFC_INTEGER_4 *iostat;
621}
622st_parameter_common;
623
624#undef CHARACTER2
625
626#define IOPARM_LIBRETURN_MASK (3 << 0)
627#define IOPARM_LIBRETURN_OK (0 << 0)
628#define IOPARM_LIBRETURN_ERROR (1 << 0)
629#define IOPARM_LIBRETURN_END (2 << 0)
630#define IOPARM_LIBRETURN_EOR (3 << 0)
631#define IOPARM_ERR (1 << 2)
632#define IOPARM_END (1 << 3)
633#define IOPARM_EOR (1 << 4)
634#define IOPARM_HAS_IOSTAT (1 << 5)
635#define IOPARM_HAS_IOMSG (1 << 6)
636
637#define IOPARM_COMMON_MASK ((1 << 7) - 1)
638
0ef33d44 639/* Make sure to keep in sync with io/io.h (st_parameter_open). */
0dce3ca1
FXC		 640#define IOPARM_OPEN_HAS_RECL_IN (1 << 7)
641#define IOPARM_OPEN_HAS_FILE (1 << 8)
642#define IOPARM_OPEN_HAS_STATUS (1 << 9)
643#define IOPARM_OPEN_HAS_ACCESS (1 << 10)
644#define IOPARM_OPEN_HAS_FORM (1 << 11)
645#define IOPARM_OPEN_HAS_BLANK (1 << 12)
646#define IOPARM_OPEN_HAS_POSITION (1 << 13)
647#define IOPARM_OPEN_HAS_ACTION (1 << 14)
648#define IOPARM_OPEN_HAS_DELIM (1 << 15)
649#define IOPARM_OPEN_HAS_PAD (1 << 16)
650#define IOPARM_OPEN_HAS_CONVERT (1 << 17)
10256cbe
JD		 651#define IOPARM_OPEN_HAS_DECIMAL (1 << 18)
652#define IOPARM_OPEN_HAS_ENCODING (1 << 19)
653#define IOPARM_OPEN_HAS_ROUND (1 << 20)
654#define IOPARM_OPEN_HAS_SIGN (1 << 21)
655#define IOPARM_OPEN_HAS_ASYNCHRONOUS (1 << 22)
dcfddbd4 656#define IOPARM_OPEN_HAS_NEWUNIT (1 << 23)
0ef33d44
FR		 657#define IOPARM_OPEN_HAS_READONLY (1 << 24)
658#define IOPARM_OPEN_HAS_CC (1 << 25)
659#define IOPARM_OPEN_HAS_SHARE (1 << 26)
0dce3ca1 660
cb13c288
JD		 661/* library start function and end macro. These can be expanded if needed
662 in the future. cmp is st_parameter_common *cmp */
f2ae4b2b 663
0dce3ca1 664extern void library_start (st_parameter_common *);
7d7b8bfe 665internal_proto(library_start);
6de9cd9a 666
5e805e44 667#define library_end()
6de9cd9a 668
cb13c288
JD		 669/* main.c */
670
671extern void stupid_function_name_for_static_linking (void);
672internal_proto(stupid_function_name_for_static_linking);
673
7d7b8bfe 674extern void set_args (int, char **);
fa10ccb2 675iexport_proto(set_args);
6de9cd9a 676
7d7b8bfe
RH		 677extern void get_args (int *, char ***);
678internal_proto(get_args);
6de9cd9a 679
868d75db
FXC		 680/* backtrace.c */
681
1b0b9fcb 682extern void show_backtrace (bool);
ad4f95e3
FXC		 683internal_proto(show_backtrace);
684
868d75db 685
6de9cd9a 686/* error.c */
6de9cd9a 687
486024b1
JD		 688#if defined(HAVE_GFC_REAL_16)
689#define GFC_LARGEST_BUF (sizeof (GFC_REAL_16))
b2ef02df
KT		 690#elif defined(HAVE_GFC_INTEGER_16)
691#define GFC_LARGEST_BUF (sizeof (GFC_INTEGER_LARGEST))
486024b1
JD		 692#elif defined(HAVE_GFC_REAL_10)
693#define GFC_LARGEST_BUF (sizeof (GFC_REAL_10))
694#else
695#define GFC_LARGEST_BUF (sizeof (GFC_INTEGER_LARGEST))
696#endif
697
1449b8cb 698#define GFC_ITOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 2)
486024b1
JD		 699#define GFC_XTOA_BUF_SIZE (GFC_LARGEST_BUF * 2 + 1)
700#define GFC_OTOA_BUF_SIZE (GFC_LARGEST_BUF * 3 + 1)
701#define GFC_BTOA_BUF_SIZE (GFC_LARGEST_BUF * 8 + 1)
1449b8cb 702
77777b33 703extern _Noreturn void sys_abort (void);
de8bd142 704internal_proto(sys_abort);
eedeea04 705
71cda9ca
JB		 706extern _Noreturn void exit_error (int);
707internal_proto(exit_error);
708
1028b2bd
JB		 709extern ssize_t estr_write (const char *);
710internal_proto(estr_write);
711
edaaef60
JB		 712#if !defined(HAVE_WRITEV) && !defined(HAVE_SYS_UIO_H)
713struct iovec {
714 void *iov_base; /* Starting address */
715 size_t iov_len; /* Number of bytes to transfer */
716};
717#endif
718
719extern ssize_t estr_writev (const struct iovec *iov, int iovcnt);
720internal_proto(estr_writev);
1028b2bd
JB		 721
722extern int st_printf (const char *, ...)
723 __attribute__((format (gfc_printf, 1, 2)));
724internal_proto(st_printf);
725
f9bfed22
JB		 726extern const char *gfc_xtoa (GFC_UINTEGER_LARGEST, char *, size_t);
727internal_proto(gfc_xtoa);
6de9cd9a 728
77777b33 729extern _Noreturn void os_error (const char *);
1529b8d9 730iexport_proto(os_error);
6de9cd9a 731
d74a8b05
JB		 732extern _Noreturn void os_error_at (const char *, const char *, ...)
733 __attribute__ ((format (gfc_printf, 2, 3)));
734iexport_proto(os_error_at);
735
0dce3ca1 736extern void show_locus (st_parameter_common *);
7d7b8bfe 737internal_proto(show_locus);
6de9cd9a 738
77777b33
FXC		 739extern _Noreturn void runtime_error (const char *, ...)
740 __attribute__ ((format (gfc_printf, 1, 2)));
7d7b8bfe 741iexport_proto(runtime_error);
6de9cd9a 742
77777b33
FXC		 743extern _Noreturn void runtime_error_at (const char *, const char *, ...)
744 __attribute__ ((format (gfc_printf, 2, 3)));
cb13c288
JD		 745iexport_proto(runtime_error_at);
746
9731c4a3 747extern void runtime_warning_at (const char *, const char *, ...)
196c8bc8 748 __attribute__ ((format (gfc_printf, 2, 3)));
0d52899f
TB		 749iexport_proto(runtime_warning_at);
750
77777b33 751extern _Noreturn void internal_error (st_parameter_common *, const char *);
7d7b8bfe 752internal_proto(internal_error);
6de9cd9a 753
7d7b8bfe
RH		 754extern const char *translate_error (int);
755internal_proto(translate_error);
6de9cd9a 756
0dce3ca1 757extern void generate_error (st_parameter_common *, int, const char *);
cb13c288 758iexport_proto(generate_error);
6de9cd9a 759
2b4c9065
NK		 760extern bool generate_error_common (st_parameter_common *, int, const char *);
761iexport_proto(generate_error_common);
762
fc5f5bb7
JD		 763extern void generate_warning (st_parameter_common *, const char *);
764internal_proto(generate_warning);
765
f5e3ed2d 766extern bool notify_std (st_parameter_common *, int, const char *);
2e444427
JD		 767internal_proto(notify_std);
768
0dce3ca1
FXC		 769extern notification notification_std(int);
770internal_proto(notification_std);
771
723553bd
JB		 772extern char *gf_strerror (int, char *, size_t);
773internal_proto(gf_strerror);
774
944b8b35
FXC		 775/* fpu.c */
776
777extern void set_fpu (void);
778internal_proto(set_fpu);
82a4f54c 779
8b198102
FXC		 780extern int get_fpu_trap_exceptions (void);
781internal_proto(get_fpu_trap_exceptions);
782
783extern void set_fpu_trap_exceptions (int, int);
784internal_proto(set_fpu_trap_exceptions);
785
786extern int support_fpu_trap (int);
787internal_proto(support_fpu_trap);
788
fa86f4f9
TB		 789extern int get_fpu_except_flags (void);
790internal_proto(get_fpu_except_flags);
944b8b35 791
8b198102
FXC		 792extern void set_fpu_except_flags (int, int);
793internal_proto(set_fpu_except_flags);
794
795extern int support_fpu_flag (int);
796internal_proto(support_fpu_flag);
797
798extern void set_fpu_rounding_mode (int);
82a4f54c
TB		 799internal_proto(set_fpu_rounding_mode);
800
801extern int get_fpu_rounding_mode (void);
802internal_proto(get_fpu_rounding_mode);
803
8b198102
FXC		 804extern int support_fpu_rounding_mode (int);
805internal_proto(support_fpu_rounding_mode);
806
807extern void get_fpu_state (void *);
808internal_proto(get_fpu_state);
809
810extern void set_fpu_state (void *);
811internal_proto(set_fpu_state);
812
f5168e47
FXC		 813extern int get_fpu_underflow_mode (void);
814internal_proto(get_fpu_underflow_mode);
815
816extern void set_fpu_underflow_mode (int);
817internal_proto(set_fpu_underflow_mode);
818
819extern int support_fpu_underflow_control (int);
820internal_proto(support_fpu_underflow_control);
821
6de9cd9a
DN		 822/* memory.c */
823
1a0fd3d3
JB		 824extern void *xmalloc (size_t) __attribute__ ((malloc));
825internal_proto(xmalloc);
6de9cd9a 826
92e6f3a4
JB		 827extern void *xmallocarray (size_t, size_t) __attribute__ ((malloc));
828internal_proto(xmallocarray);
829
f4471acb
JB		 830extern void *xcalloc (size_t, size_t) __attribute__ ((malloc));
831internal_proto(xcalloc);
832
d74fd3c7
JB		 833extern void *xrealloc (void *, size_t);
834internal_proto(xrealloc);
f4471acb 835
6de9cd9a
DN		 836/* environ.c */
837
7d7b8bfe
RH		 838extern void init_variables (void);
839internal_proto(init_variables);
6de9cd9a 840
0dce3ca1
FXC		 841unit_convert get_unformatted_convert (int);
842internal_proto(get_unformatted_convert);
843
68ee9c08 844/* Secure getenv() which returns NULL if running as SUID/SGID. */
227e441f 845#ifndef HAVE_SECURE_GETENV
d86e68e2 846#if defined(HAVE_GETUID) && defined(HAVE_GETEUID) \
68ee9c08
JB		 847 && defined(HAVE_GETGID) && defined(HAVE_GETEGID)
848#define FALLBACK_SECURE_GETENV
849extern char *secure_getenv (const char *);
850internal_proto(secure_getenv);
851#else
852#define secure_getenv getenv
853#endif
227e441f 854#endif
68ee9c08 855
6de9cd9a
DN		 856/* string.c */
857
88fdfd5a 858extern int find_option (st_parameter_common *, const char *, gfc_charlen_type,
5e805e44 859 const st_option *, const char *);
7d7b8bfe 860internal_proto(find_option);
6de9cd9a 861
88fdfd5a 862extern gfc_charlen_type fstrlen (const char *, gfc_charlen_type);
7d7b8bfe 863internal_proto(fstrlen);
6de9cd9a 864
88fdfd5a 865extern gfc_charlen_type fstrcpy (char *, gfc_charlen_type, const char *, gfc_charlen_type);
7d7b8bfe 866internal_proto(fstrcpy);
6de9cd9a 867
88fdfd5a 868extern gfc_charlen_type cf_strcpy (char *, gfc_charlen_type, const char *);
7d7b8bfe 869internal_proto(cf_strcpy);
6de9cd9a 870
79617d7e
TK		 871extern gfc_charlen_type string_len_trim (gfc_charlen_type, const char *);
872export_proto(string_len_trim);
873
874extern gfc_charlen_type string_len_trim_char4 (gfc_charlen_type,
875 const gfc_char4_t *);
876export_proto(string_len_trim_char4);
877
4269f19c
JB		 878extern char *fc_strdup(const char *, gfc_charlen_type);
879internal_proto(fc_strdup);
880
581d2326
JB		 881extern char *fc_strdup_notrim(const char *, gfc_charlen_type);
882internal_proto(fc_strdup_notrim);
883
1b0b9fcb
JB		 884extern const char *gfc_itoa(GFC_INTEGER_LARGEST, char *, size_t);
885internal_proto(gfc_itoa);
886
25a5e756
FXC		 887/* io/intrinsics.c */
888
889extern void flush_all_units (void);
890internal_proto(flush_all_units);
891
6de9cd9a
DN		 892/* io.c */
893
7d7b8bfe
RH		 894extern void init_units (void);
895internal_proto(init_units);
6de9cd9a 896
7d7b8bfe
RH		 897extern void close_units (void);
898internal_proto(close_units);
6de9cd9a 899
ee4ac5b0
FXC		 900extern int unit_to_fd (int);
901internal_proto(unit_to_fd);
902
87557722
JD		 903extern char * filename_from_unit (int);
904internal_proto(filename_from_unit);
905
6de9cd9a 906/* stop.c */
7d7b8bfe 907
dffb1e22 908extern _Noreturn void stop_string (const char *, size_t, bool);
6d1b0f92 909export_proto(stop_string);
6de9cd9a
DN		 910
911/* reshape_packed.c */
6de9cd9a 912
7d7b8bfe
RH		 913extern void reshape_packed (char *, index_type, const char *, index_type,
914 const char *, index_type);
915internal_proto(reshape_packed);
6de9cd9a 916
8e1d7686
TK		 917/* Repacking functions. These are called internally by internal_pack
918 and internal_unpack. */
919
920GFC_INTEGER_1 *internal_pack_1 (gfc_array_i1 *);
921internal_proto(internal_pack_1);
922
923GFC_INTEGER_2 *internal_pack_2 (gfc_array_i2 *);
924internal_proto(internal_pack_2);
6de9cd9a 925
6de9cd9a 926GFC_INTEGER_4 *internal_pack_4 (gfc_array_i4 *);
7d7b8bfe 927internal_proto(internal_pack_4);
6de9cd9a 928
6de9cd9a 929GFC_INTEGER_8 *internal_pack_8 (gfc_array_i8 *);
7d7b8bfe 930internal_proto(internal_pack_8);
6de9cd9a 931
0618ee31 932#if defined HAVE_GFC_INTEGER_16
e82726f9
AJ		 933GFC_INTEGER_16 *internal_pack_16 (gfc_array_i16 *);
934internal_proto(internal_pack_16);
0618ee31 935#endif
e82726f9 936
8e1d7686
TK		 937GFC_REAL_4 *internal_pack_r4 (gfc_array_r4 *);
938internal_proto(internal_pack_r4);
939
940GFC_REAL_8 *internal_pack_r8 (gfc_array_r8 *);
941internal_proto(internal_pack_r8);
942
943#if defined HAVE_GFC_REAL_10
944GFC_REAL_10 *internal_pack_r10 (gfc_array_r10 *);
945internal_proto(internal_pack_r10);
946#endif
947
948#if defined HAVE_GFC_REAL_16
949GFC_REAL_16 *internal_pack_r16 (gfc_array_r16 *);
950internal_proto(internal_pack_r16);
951#endif
952
39328081
TK		 953GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *);
954internal_proto(internal_pack_c4);
955
956GFC_COMPLEX_8 *internal_pack_c8 (gfc_array_c8 *);
957internal_proto(internal_pack_c8);
958
0618ee31 959#if defined HAVE_GFC_COMPLEX_10
e82726f9
AJ		 960GFC_COMPLEX_10 *internal_pack_c10 (gfc_array_c10 *);
961internal_proto(internal_pack_c10);
0618ee31 962#endif
e82726f9 963
8e1d7686
TK		 964#if defined HAVE_GFC_COMPLEX_16
965GFC_COMPLEX_16 *internal_pack_c16 (gfc_array_c16 *);
966internal_proto(internal_pack_c16);
967#endif
968
969extern void internal_unpack_1 (gfc_array_i1 *, const GFC_INTEGER_1 *);
970internal_proto(internal_unpack_1);
971
972extern void internal_unpack_2 (gfc_array_i2 *, const GFC_INTEGER_2 *);
973internal_proto(internal_unpack_2);
974
7d7b8bfe
RH		 975extern void internal_unpack_4 (gfc_array_i4 *, const GFC_INTEGER_4 *);
976internal_proto(internal_unpack_4);
6de9cd9a 977
7d7b8bfe
RH		 978extern void internal_unpack_8 (gfc_array_i8 *, const GFC_INTEGER_8 *);
979internal_proto(internal_unpack_8);
f814193b 980
0618ee31 981#if defined HAVE_GFC_INTEGER_16
e82726f9
AJ		 982extern void internal_unpack_16 (gfc_array_i16 *, const GFC_INTEGER_16 *);
983internal_proto(internal_unpack_16);
0618ee31 984#endif
e82726f9 985
8e1d7686
TK		 986extern void internal_unpack_r4 (gfc_array_r4 *, const GFC_REAL_4 *);
987internal_proto(internal_unpack_r4);
988
989extern void internal_unpack_r8 (gfc_array_r8 *, const GFC_REAL_8 *);
990internal_proto(internal_unpack_r8);
991
992#if defined HAVE_GFC_REAL_10
993extern void internal_unpack_r10 (gfc_array_r10 *, const GFC_REAL_10 *);
994internal_proto(internal_unpack_r10);
995#endif
996
997#if defined HAVE_GFC_REAL_16
998extern void internal_unpack_r16 (gfc_array_r16 *, const GFC_REAL_16 *);
999internal_proto(internal_unpack_r16);
1000#endif
1001
39328081
TK		 1002extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *);
1003internal_proto(internal_unpack_c4);
1004
1005extern void internal_unpack_c8 (gfc_array_c8 *, const GFC_COMPLEX_8 *);
1006internal_proto(internal_unpack_c8);
1007
0618ee31 1008#if defined HAVE_GFC_COMPLEX_10
e82726f9
AJ		 1009extern void internal_unpack_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *);
1010internal_proto(internal_unpack_c10);
0618ee31 1011#endif
e82726f9 1012
f53c2bfa
FXC		 1013#if defined HAVE_GFC_COMPLEX_16
1014extern void internal_unpack_c16 (gfc_array_c16 *, const GFC_COMPLEX_16 *);
1015internal_proto(internal_unpack_c16);
1016#endif
1017
3ef2513a
TK		 1018/* Internal auxiliary functions for the pack intrinsic. */
1019
1020extern void pack_i1 (gfc_array_i1 *, const gfc_array_i1 *,
1021 const gfc_array_l1 *, const gfc_array_i1 *);
1022internal_proto(pack_i1);
1023
1024extern void pack_i2 (gfc_array_i2 *, const gfc_array_i2 *,
1025 const gfc_array_l1 *, const gfc_array_i2 *);
1026internal_proto(pack_i2);
1027
1028extern void pack_i4 (gfc_array_i4 *, const gfc_array_i4 *,
1029 const gfc_array_l1 *, const gfc_array_i4 *);
1030internal_proto(pack_i4);
1031
1032extern void pack_i8 (gfc_array_i8 *, const gfc_array_i8 *,
1033 const gfc_array_l1 *, const gfc_array_i8 *);
1034internal_proto(pack_i8);
1035
1036#ifdef HAVE_GFC_INTEGER_16
1037extern void pack_i16 (gfc_array_i16 *, const gfc_array_i16 *,
1038 const gfc_array_l1 *, const gfc_array_i16 *);
1039internal_proto(pack_i16);
1040#endif
1041
1042extern void pack_r4 (gfc_array_r4 *, const gfc_array_r4 *,
1043 const gfc_array_l1 *, const gfc_array_r4 *);
1044internal_proto(pack_r4);
1045
1046extern void pack_r8 (gfc_array_r8 *, const gfc_array_r8 *,
1047 const gfc_array_l1 *, const gfc_array_r8 *);
1048internal_proto(pack_r8);
1049
1050#ifdef HAVE_GFC_REAL_10
1051extern void pack_r10 (gfc_array_r10 *, const gfc_array_r10 *,
1052 const gfc_array_l1 *, const gfc_array_r10 *);
1053internal_proto(pack_r10);
1054#endif
1055
1056#ifdef HAVE_GFC_REAL_16
1057extern void pack_r16 (gfc_array_r16 *, const gfc_array_r16 *,
1058 const gfc_array_l1 *, const gfc_array_r16 *);
1059internal_proto(pack_r16);
1060#endif
1061
1062extern void pack_c4 (gfc_array_c4 *, const gfc_array_c4 *,
1063 const gfc_array_l1 *, const gfc_array_c4 *);
1064internal_proto(pack_c4);
1065
1066extern void pack_c8 (gfc_array_c8 *, const gfc_array_c8 *,
1067 const gfc_array_l1 *, const gfc_array_c8 *);
1068internal_proto(pack_c8);
1069
1070#ifdef HAVE_GFC_REAL_10
1071extern void pack_c10 (gfc_array_c10 *, const gfc_array_c10 *,
1072 const gfc_array_l1 *, const gfc_array_c10 *);
1073internal_proto(pack_c10);
1074#endif
1075
1076#ifdef HAVE_GFC_REAL_16
1077extern void pack_c16 (gfc_array_c16 *, const gfc_array_c16 *,
1078 const gfc_array_l1 *, const gfc_array_c16 *);
1079internal_proto(pack_c16);
1080#endif
1081
3478bba4
TK		 1082/* Internal auxiliary functions for the unpack intrinsic. */
1083
1084extern void unpack0_i1 (gfc_array_i1 *, const gfc_array_i1 *,
1085 const gfc_array_l1 *, const GFC_INTEGER_1 *);
1086internal_proto(unpack0_i1);
1087
1088extern void unpack0_i2 (gfc_array_i2 *, const gfc_array_i2 *,
1089 const gfc_array_l1 *, const GFC_INTEGER_2 *);
1090internal_proto(unpack0_i2);
1091
1092extern void unpack0_i4 (gfc_array_i4 *, const gfc_array_i4 *,
1093 const gfc_array_l1 *, const GFC_INTEGER_4 *);
1094internal_proto(unpack0_i4);
1095
1096extern void unpack0_i8 (gfc_array_i8 *, const gfc_array_i8 *,
1097 const gfc_array_l1 *, const GFC_INTEGER_8 *);
1098internal_proto(unpack0_i8);
1099
1100#ifdef HAVE_GFC_INTEGER_16
1101
1102extern void unpack0_i16 (gfc_array_i16 *, const gfc_array_i16 *,
1103 const gfc_array_l1 *, const GFC_INTEGER_16 *);
1104internal_proto(unpack0_i16);
1105
1106#endif
1107
1108extern void unpack0_r4 (gfc_array_r4 *, const gfc_array_r4 *,
1109 const gfc_array_l1 *, const GFC_REAL_4 *);
1110internal_proto(unpack0_r4);
1111
1112extern void unpack0_r8 (gfc_array_r8 *, const gfc_array_r8 *,
1113 const gfc_array_l1 *, const GFC_REAL_8 *);
1114internal_proto(unpack0_r8);
1115
1116#ifdef HAVE_GFC_REAL_10
1117
1118extern void unpack0_r10 (gfc_array_r10 *, const gfc_array_r10 *,
1119 const gfc_array_l1 *, const GFC_REAL_10 *);
1120internal_proto(unpack0_r10);
1121
1122#endif
1123
1124#ifdef HAVE_GFC_REAL_16
1125
1126extern void unpack0_r16 (gfc_array_r16 *, const gfc_array_r16 *,
1127 const gfc_array_l1 *, const GFC_REAL_16 *);
1128internal_proto(unpack0_r16);
1129
1130#endif
1131
1132extern void unpack0_c4 (gfc_array_c4 *, const gfc_array_c4 *,
1133 const gfc_array_l1 *, const GFC_COMPLEX_4 *);
1134internal_proto(unpack0_c4);
1135
1136extern void unpack0_c8 (gfc_array_c8 *, const gfc_array_c8 *,
1137 const gfc_array_l1 *, const GFC_COMPLEX_8 *);
1138internal_proto(unpack0_c8);
1139
1140#ifdef HAVE_GFC_COMPLEX_10
1141
1142extern void unpack0_c10 (gfc_array_c10 *, const gfc_array_c10 *,
1143 const gfc_array_l1 *mask, const GFC_COMPLEX_10 *);
1144internal_proto(unpack0_c10);
1145
1146#endif
1147
1148#ifdef HAVE_GFC_COMPLEX_16
1149
1150extern void unpack0_c16 (gfc_array_c16 *, const gfc_array_c16 *,
1151 const gfc_array_l1 *, const GFC_COMPLEX_16 *);
1152internal_proto(unpack0_c16);
1153
1154#endif
1155
1156extern void unpack1_i1 (gfc_array_i1 *, const gfc_array_i1 *,
1157 const gfc_array_l1 *, const gfc_array_i1 *);
1158internal_proto(unpack1_i1);
1159
1160extern void unpack1_i2 (gfc_array_i2 *, const gfc_array_i2 *,
1161 const gfc_array_l1 *, const gfc_array_i2 *);
1162internal_proto(unpack1_i2);
1163
1164extern void unpack1_i4 (gfc_array_i4 *, const gfc_array_i4 *,
1165 const gfc_array_l1 *, const gfc_array_i4 *);
1166internal_proto(unpack1_i4);
1167
1168extern void unpack1_i8 (gfc_array_i8 *, const gfc_array_i8 *,
1169 const gfc_array_l1 *, const gfc_array_i8 *);
1170internal_proto(unpack1_i8);
1171
1172#ifdef HAVE_GFC_INTEGER_16
1173extern void unpack1_i16 (gfc_array_i16 *, const gfc_array_i16 *,
1174 const gfc_array_l1 *, const gfc_array_i16 *);
1175internal_proto(unpack1_i16);
1176#endif
1177
1178extern void unpack1_r4 (gfc_array_r4 *, const gfc_array_r4 *,
1179 const gfc_array_l1 *, const gfc_array_r4 *);
1180internal_proto(unpack1_r4);
1181
1182extern void unpack1_r8 (gfc_array_r8 *, const gfc_array_r8 *,
1183 const gfc_array_l1 *, const gfc_array_r8 *);
1184internal_proto(unpack1_r8);
1185
1186#ifdef HAVE_GFC_REAL_10
1187extern void unpack1_r10 (gfc_array_r10 *, const gfc_array_r10 *,
1188 const gfc_array_l1 *, const gfc_array_r10 *);
1189internal_proto(unpack1_r10);
1190#endif
1191
1192#ifdef HAVE_GFC_REAL_16
1193extern void unpack1_r16 (gfc_array_r16 *, const gfc_array_r16 *,
1194 const gfc_array_l1 *, const gfc_array_r16 *);
1195internal_proto(unpack1_r16);
1196#endif
1197
1198extern void unpack1_c4 (gfc_array_c4 *, const gfc_array_c4 *,
1199 const gfc_array_l1 *, const gfc_array_c4 *);
1200internal_proto(unpack1_c4);
1201
1202extern void unpack1_c8 (gfc_array_c8 *, const gfc_array_c8 *,
1203 const gfc_array_l1 *, const gfc_array_c8 *);
1204internal_proto(unpack1_c8);
1205
1206#ifdef HAVE_GFC_COMPLEX_10
1207extern void unpack1_c10 (gfc_array_c10 *, const gfc_array_c10 *,
1208 const gfc_array_l1 *, const gfc_array_c10 *);
1209internal_proto(unpack1_c10);
1210#endif
1211
1212#ifdef HAVE_GFC_COMPLEX_16
1213extern void unpack1_c16 (gfc_array_c16 *, const gfc_array_c16 *,
1214 const gfc_array_l1 *, const gfc_array_c16 *);
1215internal_proto(unpack1_c16);
1216#endif
1217
75f2543f
TK		 1218/* Helper functions for spread. */
1219
1220extern void spread_i1 (gfc_array_i1 *, const gfc_array_i1 *,
1221 const index_type, const index_type);
1222internal_proto(spread_i1);
1223
1224extern void spread_i2 (gfc_array_i2 *, const gfc_array_i2 *,
1225 const index_type, const index_type);
1226internal_proto(spread_i2);
1227
1228extern void spread_i4 (gfc_array_i4 *, const gfc_array_i4 *,
1229 const index_type, const index_type);
1230internal_proto(spread_i4);
1231
1232extern void spread_i8 (gfc_array_i8 *, const gfc_array_i8 *,
1233 const index_type, const index_type);
1234internal_proto(spread_i8);
1235
1236#ifdef HAVE_GFC_INTEGER_16
1237extern void spread_i16 (gfc_array_i16 *, const gfc_array_i16 *,
1238 const index_type, const index_type);
1239internal_proto(spread_i16);
1240
1241#endif
1242
1243extern void spread_r4 (gfc_array_r4 *, const gfc_array_r4 *,
1244 const index_type, const index_type);
1245internal_proto(spread_r4);
1246
1247extern void spread_r8 (gfc_array_r8 *, const gfc_array_r8 *,
1248 const index_type, const index_type);
1249internal_proto(spread_r8);
1250
1251#ifdef HAVE_GFC_REAL_10
1252extern void spread_r10 (gfc_array_r10 *, const gfc_array_r10 *,
1253 const index_type, const index_type);
1254internal_proto(spread_r10);
1255
1256#endif
1257
1258#ifdef HAVE_GFC_REAL_16
1259extern void spread_r16 (gfc_array_r16 *, const gfc_array_r16 *,
1260 const index_type, const index_type);
1261internal_proto(spread_r16);
1262
1263#endif
1264
1265extern void spread_c4 (gfc_array_c4 *, const gfc_array_c4 *,
1266 const index_type, const index_type);
1267internal_proto(spread_c4);
1268
1269extern void spread_c8 (gfc_array_c8 *, const gfc_array_c8 *,
1270 const index_type, const index_type);
1271internal_proto(spread_c8);
1272
1273#ifdef HAVE_GFC_COMPLEX_10
1274extern void spread_c10 (gfc_array_c10 *, const gfc_array_c10 *,
1275 const index_type, const index_type);
1276internal_proto(spread_c10);
1277
1278#endif
1279
1280#ifdef HAVE_GFC_COMPLEX_16
1281extern void spread_c16 (gfc_array_c16 *, const gfc_array_c16 *,
1282 const index_type, const index_type);
1283internal_proto(spread_c16);
1284
1285#endif
1286
1287extern void spread_scalar_i1 (gfc_array_i1 *, const GFC_INTEGER_1 *,
1288 const index_type, const index_type);
1289internal_proto(spread_scalar_i1);
1290
1291extern void spread_scalar_i2 (gfc_array_i2 *, const GFC_INTEGER_2 *,
1292 const index_type, const index_type);
1293internal_proto(spread_scalar_i2);
1294
1295extern void spread_scalar_i4 (gfc_array_i4 *, const GFC_INTEGER_4 *,
1296 const index_type, const index_type);
1297internal_proto(spread_scalar_i4);
1298
1299extern void spread_scalar_i8 (gfc_array_i8 *, const GFC_INTEGER_8 *,
1300 const index_type, const index_type);
1301internal_proto(spread_scalar_i8);
1302
1303#ifdef HAVE_GFC_INTEGER_16
1304extern void spread_scalar_i16 (gfc_array_i16 *, const GFC_INTEGER_16 *,
1305 const index_type, const index_type);
1306internal_proto(spread_scalar_i16);
1307
1308#endif
1309
1310extern void spread_scalar_r4 (gfc_array_r4 *, const GFC_REAL_4 *,
1311 const index_type, const index_type);
1312internal_proto(spread_scalar_r4);
1313
1314extern void spread_scalar_r8 (gfc_array_r8 *, const GFC_REAL_8 *,
1315 const index_type, const index_type);
1316internal_proto(spread_scalar_r8);
1317
1318#ifdef HAVE_GFC_REAL_10
1319extern void spread_scalar_r10 (gfc_array_r10 *, const GFC_REAL_10 *,
1320 const index_type, const index_type);
1321internal_proto(spread_scalar_r10);
1322
1323#endif
1324
1325#ifdef HAVE_GFC_REAL_16
1326extern void spread_scalar_r16 (gfc_array_r16 *, const GFC_REAL_16 *,
1327 const index_type, const index_type);
1328internal_proto(spread_scalar_r16);
1329
1330#endif
1331
1332extern void spread_scalar_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *,
1333 const index_type, const index_type);
1334internal_proto(spread_scalar_c4);
1335
1336extern void spread_scalar_c8 (gfc_array_c8 *, const GFC_COMPLEX_8 *,
1337 const index_type, const index_type);
1338internal_proto(spread_scalar_c8);
1339
1340#ifdef HAVE_GFC_COMPLEX_10
1341extern void spread_scalar_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *,
1342 const index_type, const index_type);
1343internal_proto(spread_scalar_c10);
1344
1345#endif
1346
1347#ifdef HAVE_GFC_COMPLEX_16
1348extern void spread_scalar_c16 (gfc_array_c16 *, const GFC_COMPLEX_16 *,
1349 const index_type, const index_type);
1350internal_proto(spread_scalar_c16);
1351
1352#endif
1353
6de9cd9a
DN		 1354/* string_intrinsics.c */
1355
4b267817
FXC		 1356extern int compare_string (gfc_charlen_type, const char *,
1357 gfc_charlen_type, const char *);
7d7b8bfe 1358iexport_proto(compare_string);
6de9cd9a 1359
4b267817
FXC		 1360extern int compare_string_char4 (gfc_charlen_type, const gfc_char4_t *,
1361 gfc_charlen_type, const gfc_char4_t *);
1362iexport_proto(compare_string_char4);
1363
e7898e54
TK		 1364extern int memcmp_char4 (const void *, const void *, size_t);
1365internal_proto(memcmp_char4);
1366
1367
abdef811
BD		 1368/* random.c */
1369
34b4bc5c
FXC		 1370extern void random_seed_i4 (GFC_INTEGER_4 * size, gfc_array_i4 * put,
1371 gfc_array_i4 * get);
1372iexport_proto(random_seed_i4);
1373extern void random_seed_i8 (GFC_INTEGER_8 * size, gfc_array_i8 * put,
1374 gfc_array_i8 * get);
1375iexport_proto(random_seed_i8);
abdef811 1376
6c167c45
VL		 1377/* size.c */
1378
e9bfdf18 1379typedef GFC_ARRAY_DESCRIPTOR (void) array_t;
6c167c45 1380
7d7b8bfe
RH		 1381extern index_type size0 (const array_t * array);
1382iexport_proto(size0);
6c167c45 1383
419af57c
TK		 1384/* is_contiguous.c */
1385
1386extern GFC_LOGICAL_4 is_contiguous0 (const array_t * const restrict array);
1387iexport_proto(is_contiguous0);
1388
16bff921
TK		 1389/* bounds.c */
1390
1391extern void bounds_equal_extents (array_t *, array_t *, const char *,
1392 const char *);
1393internal_proto(bounds_equal_extents);
1394
1395extern void bounds_reduced_extents (array_t *, array_t *, int, const char *,
1396 const char *intrinsic);
1397internal_proto(bounds_reduced_extents);
1398
1399extern void bounds_iforeach_return (array_t *, array_t *, const char *);
1400internal_proto(bounds_iforeach_return);
1401
1402extern void bounds_ifunction_return (array_t *, const index_type *,
1403 const char *, const char *);
1404internal_proto(bounds_ifunction_return);
1405
8c39b987
TK		 1406extern index_type count_0 (const gfc_array_l1 *);
1407
1408internal_proto(count_0);
1409
c2b00cdc
TK		 1410/* Internal auxiliary functions for cshift */
1411
44720bef 1412void cshift0_i1 (gfc_array_i1 *, const gfc_array_i1 *, ptrdiff_t, int);
c2b00cdc
TK		 1413internal_proto(cshift0_i1);
1414
44720bef 1415void cshift0_i2 (gfc_array_i2 *, const gfc_array_i2 *, ptrdiff_t, int);
c2b00cdc
TK		 1416internal_proto(cshift0_i2);
1417
44720bef 1418void cshift0_i4 (gfc_array_i4 *, const gfc_array_i4 *, ptrdiff_t, int);
c2b00cdc
TK		 1419internal_proto(cshift0_i4);
1420
44720bef 1421void cshift0_i8 (gfc_array_i8 *, const gfc_array_i8 *, ptrdiff_t, int);
c2b00cdc
TK		 1422internal_proto(cshift0_i8);
1423
1424#ifdef HAVE_GFC_INTEGER_16
44720bef 1425void cshift0_i16 (gfc_array_i16 *, const gfc_array_i16 *, ptrdiff_t, int);
c2b00cdc
TK		 1426internal_proto(cshift0_i16);
1427#endif
1428
44720bef 1429void cshift0_r4 (gfc_array_r4 *, const gfc_array_r4 *, ptrdiff_t, int);
c2b00cdc
TK		 1430internal_proto(cshift0_r4);
1431
44720bef 1432void cshift0_r8 (gfc_array_r8 *, const gfc_array_r8 *, ptrdiff_t, int);
c2b00cdc
TK		 1433internal_proto(cshift0_r8);
1434
1435#ifdef HAVE_GFC_REAL_10
44720bef 1436void cshift0_r10 (gfc_array_r10 *, const gfc_array_r10 *, ptrdiff_t, int);
c2b00cdc
TK		 1437internal_proto(cshift0_r10);
1438#endif
1439
1440#ifdef HAVE_GFC_REAL_16
44720bef 1441void cshift0_r16 (gfc_array_r16 *, const gfc_array_r16 *, ptrdiff_t, int);
c2b00cdc
TK		 1442internal_proto(cshift0_r16);
1443#endif
1444
44720bef 1445void cshift0_c4 (gfc_array_c4 *, const gfc_array_c4 *, ptrdiff_t, int);
c2b00cdc
TK		 1446internal_proto(cshift0_c4);
1447
44720bef 1448void cshift0_c8 (gfc_array_c8 *, const gfc_array_c8 *, ptrdiff_t, int);
c2b00cdc
TK		 1449internal_proto(cshift0_c8);
1450
1451#ifdef HAVE_GFC_COMPLEX_10
44720bef 1452void cshift0_c10 (gfc_array_c10 *, const gfc_array_c10 *, ptrdiff_t, int);
c2b00cdc
TK		 1453internal_proto(cshift0_c10);
1454#endif
1455
1456#ifdef HAVE_GFC_COMPLEX_16
44720bef 1457void cshift0_c16 (gfc_array_c16 *, const gfc_array_c16 *, ptrdiff_t, int);
c2b00cdc
TK		 1458internal_proto(cshift0_c16);
1459#endif
1460
e56e3fda
TK		 1461#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_1)
1462void cshift1_4_i1 (gfc_array_i1 * const restrict,
1463 const gfc_array_i1 * const restrict,
1464 const gfc_array_i4 * const restrict,
1465 const GFC_INTEGER_4 * const restrict);
1466internal_proto(cshift1_4_i1);
1467#endif
1468
1469#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_2)
1470void cshift1_4_i2 (gfc_array_i2 * const restrict,
1471 const gfc_array_i2 * const restrict,
1472 const gfc_array_i4 * const restrict,
1473 const GFC_INTEGER_4 * const restrict);
1474internal_proto(cshift1_4_i2);
1475#endif
1476
1477#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
1478void cshift1_4_i4 (gfc_array_i4 * const restrict,
1479 const gfc_array_i4 * const restrict,
1480 const gfc_array_i4 * const restrict,
1481 const GFC_INTEGER_4 * const restrict);
1482internal_proto(cshift1_4_i4);
1483#endif
1484
1485#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
1486void cshift1_4_i8 (gfc_array_i8 * const restrict,
1487 const gfc_array_i8 * const restrict,
1488 const gfc_array_i4 * const restrict,
1489 const GFC_INTEGER_4 * const restrict);
1490internal_proto(cshift1_4_i8);
1491#endif
1492
1493#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
1494void cshift1_4_i16 (gfc_array_i16 * const restrict,
1495 const gfc_array_i16 * const restrict,
1496 const gfc_array_i4 * const restrict,
1497 const GFC_INTEGER_4 * const restrict);
1498internal_proto(cshift1_4_i16);
1499#endif
1500
1501#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_1)
1502void cshift1_8_i1 (gfc_array_i1 * const restrict,
1503 const gfc_array_i1 * const restrict,
1504 const gfc_array_i8 * const restrict,
1505 const GFC_INTEGER_8 * const restrict);
1506internal_proto(cshift1_8_i1);
1507#endif
1508
1509#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_2)
1510void cshift1_8_i2 (gfc_array_i2 * const restrict,
1511 const gfc_array_i2 * const restrict,
1512 const gfc_array_i8 * const restrict,
1513 const GFC_INTEGER_8 * const restrict);
1514internal_proto(cshift1_8_i2);
1515#endif
1516
1517#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
1518void cshift1_8_i4 (gfc_array_i4 * const restrict,
1519 const gfc_array_i4 * const restrict,
1520 const gfc_array_i8 * const restrict,
1521 const GFC_INTEGER_8 * const restrict);
1522internal_proto(cshift1_8_i4);
1523#endif
1524
1525#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
1526void cshift1_8_i8 (gfc_array_i8 * const restrict,
1527 const gfc_array_i8 * const restrict,
1528 const gfc_array_i8 * const restrict,
1529 const GFC_INTEGER_8 * const restrict);
1530internal_proto(cshift1_8_i8);
1531#endif
1532
1533#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
1534void cshift1_8_i16 (gfc_array_i16 * const restrict,
1535 const gfc_array_i16 * const restrict,
1536 const gfc_array_i8 * const restrict,
1537 const GFC_INTEGER_8 * const restrict);
1538internal_proto(cshift1_8_i16);
1539#endif
1540
1541#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_1)
1542void cshift1_16_i1 (gfc_array_i1 * const restrict,
1543 const gfc_array_i1 * const restrict,
1544 const gfc_array_i16 * const restrict,
1545 const GFC_INTEGER_16 * const restrict);
1546internal_proto(cshift1_16_i1);
1547#endif
1548
1549#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_2)
1550void cshift1_16_i2 (gfc_array_i2 * const restrict,
1551 const gfc_array_i2 * const restrict,
1552 const gfc_array_i16 * const restrict,
1553 const GFC_INTEGER_16 * const restrict);
1554internal_proto(cshift1_16_i2);
1555#endif
1556
1557#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
1558void cshift1_16_i4 (gfc_array_i4 * const restrict,
1559 const gfc_array_i4 * const restrict,
1560 const gfc_array_i16 * const restrict,
1561 const GFC_INTEGER_16 * const restrict);
1562internal_proto(cshift1_16_i4);
1563#endif
1564
1565#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
1566void cshift1_16_i8 (gfc_array_i8 * const restrict,
1567 const gfc_array_i8 * const restrict,
1568 const gfc_array_i16 * const restrict,
1569 const GFC_INTEGER_16 * const restrict);
1570internal_proto(cshift1_16_i8);
1571#endif
1572
1573#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
1574void cshift1_16_i16 (gfc_array_i16 * const restrict,
1575 const gfc_array_i16 * const restrict,
1576 const gfc_array_i16 * const restrict,
1577 const GFC_INTEGER_16 * const restrict);
1578internal_proto(cshift1_16_i16);
1579#endif
1580
1581#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_REAL_4)
1582void cshift1_4_r4 (gfc_array_r4 * const restrict,
1583 const gfc_array_r4 * const restrict,
1584 const gfc_array_i4 * const restrict,
1585 const GFC_INTEGER_4 * const restrict);
1586internal_proto(cshift1_4_r4);
1587#endif
1588
1589#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_REAL_8)
1590void cshift1_4_r8 (gfc_array_r8 * const restrict,
1591 const gfc_array_r8 * const restrict,
1592 const gfc_array_i4 * const restrict,
1593 const GFC_INTEGER_4 * const restrict);
1594internal_proto(cshift1_4_r8);
1595#endif
1596
1597#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_REAL_10)
1598void cshift1_4_r10 (gfc_array_r10 * const restrict,
1599 const gfc_array_r10 * const restrict,
1600 const gfc_array_i4 * const restrict,
1601 const GFC_INTEGER_4 * const restrict);
1602internal_proto(cshift1_4_r10);
1603#endif
1604
1605#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_REAL_16)
1606void cshift1_4_r16 (gfc_array_r16 * const restrict,
1607 const gfc_array_r16 * const restrict,
1608 const gfc_array_i4 * const restrict,
1609 const GFC_INTEGER_4 * const restrict);
1610internal_proto(cshift1_4_r16);
1611#endif
1612
1613#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_REAL_4)
1614void cshift1_8_r4 (gfc_array_r4 * const restrict,
1615 const gfc_array_r4 * const restrict,
1616 const gfc_array_i8 * const restrict,
1617 const GFC_INTEGER_8 * const restrict);
1618internal_proto(cshift1_8_r4);
1619#endif
1620
1621#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_REAL_8)
1622void cshift1_8_r8 (gfc_array_r8 * const restrict,
1623 const gfc_array_r8 * const restrict,
1624 const gfc_array_i8 * const restrict,
1625 const GFC_INTEGER_8 * const restrict);
1626internal_proto(cshift1_8_r8);
1627#endif
1628
1629#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_REAL_10)
1630void cshift1_8_r10 (gfc_array_r10 * const restrict,
1631 const gfc_array_r10 * const restrict,
1632 const gfc_array_i8 * const restrict,
1633 const GFC_INTEGER_8 * const restrict);
1634internal_proto(cshift1_8_r10);
1635#endif
1636
1637#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_REAL_16)
1638void cshift1_8_r16 (gfc_array_r16 * const restrict,
1639 const gfc_array_r16 * const restrict,
1640 const gfc_array_i8 * const restrict,
1641 const GFC_INTEGER_8 * const restrict);
1642internal_proto(cshift1_8_r16);
1643#endif
1644
1645#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_REAL_4)
1646void cshift1_16_r4 (gfc_array_r4 * const restrict,
1647 const gfc_array_r4 * const restrict,
1648 const gfc_array_i16 * const restrict,
1649 const GFC_INTEGER_16 * const restrict);
1650internal_proto(cshift1_16_r4);
1651#endif
1652
1653#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_REAL_8)
1654void cshift1_16_r8 (gfc_array_r8 * const restrict,
1655 const gfc_array_r8 * const restrict,
1656 const gfc_array_i16 * const restrict,
1657 const GFC_INTEGER_16 * const restrict);
1658internal_proto(cshift1_16_r8);
1659#endif
1660
1661#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_REAL_10)
1662void cshift1_16_r10 (gfc_array_r10 * const restrict,
1663 const gfc_array_r10 * const restrict,
1664 const gfc_array_i16 * const restrict,
1665 const GFC_INTEGER_16 * const restrict);
1666internal_proto(cshift1_16_r10);
1667#endif
1668
1669#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_REAL_16)
1670void cshift1_16_r16 (gfc_array_r16 * const restrict,
1671 const gfc_array_r16 * const restrict,
1672 const gfc_array_i16 * const restrict,
1673 const GFC_INTEGER_16 * const restrict);
1674internal_proto(cshift1_16_r16);
1675#endif
1676
1677#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_COMPLEX_4)
1678void cshift1_4_c4 (gfc_array_c4 * const restrict,
1679 const gfc_array_c4 * const restrict,
1680 const gfc_array_i4 * const restrict,
1681 const GFC_INTEGER_4 * const restrict);
1682internal_proto(cshift1_4_c4);
1683#endif
1684
1685#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_COMPLEX_8)
1686void cshift1_4_c8 (gfc_array_c8 * const restrict,
1687 const gfc_array_c8 * const restrict,
1688 const gfc_array_i4 * const restrict,
1689 const GFC_INTEGER_4 * const restrict);
1690internal_proto(cshift1_4_c8);
1691#endif
1692
1693#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_COMPLEX_10)
1694void cshift1_4_c10 (gfc_array_c10 * const restrict,
1695 const gfc_array_c10 * const restrict,
1696 const gfc_array_i4 * const restrict,
1697 const GFC_INTEGER_4 * const restrict);
1698internal_proto(cshift1_4_c10);
1699#endif
1700
1701#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_COMPLEX_16)
1702void cshift1_4_c16 (gfc_array_c16 * const restrict,
1703 const gfc_array_c16 * const restrict,
1704 const gfc_array_i4 * const restrict,
1705 const GFC_INTEGER_4 * const restrict);
1706internal_proto(cshift1_4_c16);
1707#endif
1708
1709#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_COMPLEX_4)
1710void cshift1_8_c4 (gfc_array_c4 * const restrict,
1711 const gfc_array_c4 * const restrict,
1712 const gfc_array_i8 * const restrict,
1713 const GFC_INTEGER_8 * const restrict);
1714internal_proto(cshift1_8_c4);
1715#endif
1716
1717#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_COMPLEX_8)
1718void cshift1_8_c8 (gfc_array_c8 * const restrict,
1719 const gfc_array_c8 * const restrict,
1720 const gfc_array_i8 * const restrict,
1721 const GFC_INTEGER_8 * const restrict);
1722internal_proto(cshift1_8_c8);
1723#endif
1724
1725#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_COMPLEX_10)
1726void cshift1_8_c10 (gfc_array_c10 * const restrict,
1727 const gfc_array_c10 * const restrict,
1728 const gfc_array_i8 * const restrict,
1729 const GFC_INTEGER_8 * const restrict);
1730internal_proto(cshift1_8_c10);
1731#endif
1732
1733#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_COMPLEX_16)
1734void cshift1_8_c16 (gfc_array_c16 * const restrict,
1735 const gfc_array_c16 * const restrict,
1736 const gfc_array_i8 * const restrict,
1737 const GFC_INTEGER_8 * const restrict);
1738internal_proto(cshift1_8_c16);
1739#endif
1740
1741#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_COMPLEX_4)
1742void cshift1_16_c4 (gfc_array_c4 * const restrict,
1743 const gfc_array_c4 * const restrict,
1744 const gfc_array_i16 * const restrict,
1745 const GFC_INTEGER_16 * const restrict);
1746internal_proto(cshift1_16_c4);
1747#endif
1748
1749#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_COMPLEX_8)
1750void cshift1_16_c8 (gfc_array_c8 * const restrict,
1751 const gfc_array_c8 * const restrict,
1752 const gfc_array_i16 * const restrict,
1753 const GFC_INTEGER_16 * const restrict);
1754internal_proto(cshift1_16_c8);
1755#endif
1756
1757#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_COMPLEX_10)
1758void cshift1_16_c10 (gfc_array_c10 * const restrict,
1759 const gfc_array_c10 * const restrict,
1760 const gfc_array_i16 * const restrict,
1761 const GFC_INTEGER_16 * const restrict);
1762internal_proto(cshift1_16_c10);
1763#endif
1764
1765#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_COMPLEX_16)
1766void cshift1_16_c16 (gfc_array_c16 * const restrict,
1767 const gfc_array_c16 * const restrict,
1768 const gfc_array_i16 * const restrict,
1769 const GFC_INTEGER_16 * const restrict);
1770internal_proto(cshift1_16_c16);
1771#endif
1772
01ce9e31
TK		 1773/* We always have these. */
1774
1775#define HAVE_GFC_UINTEGER_1 1
1776#define HAVE_GFC_UINTEGER_4 1
e56e3fda 1777
69d3c9a4 1778#endif /* LIBGFOR_H */
Mirror of https://gcc.gnu.org/git/gcc.git