FLANG

magic-numbers.h
1 #if 0 /*===-- runtime/magic-numbers.h -----------------------------------===*/
2 /*
3 * Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 * See https://llvm.org/LICENSE.txt for license information.
5 * SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 *
7 *===--------------------------------------------------------------------===*/
8 #endif
9 #if 0
10 This header can be included into both Fortran and C.
11
12 This file defines various code values that need to be exported
13 to predefined Fortran standard modules as well as to C/C++
14 code in the compiler and runtime library.
15 These include:
16 - the error/end code values that can be returned
17 to an IOSTAT= or STAT= specifier on a Fortran I/O statement
18 or coindexed data reference (see Fortran 2018 12.11.5,
19 16.10.2, and 16.10.2.33)
20 Codes from <errno.h>, e.g. ENOENT, are assumed to be positive
21 and are used "raw" as IOSTAT values.
22 #endif
23 #ifndef FORTRAN_RUNTIME_MAGIC_NUMBERS_H_
24 #define FORTRAN_RUNTIME_MAGIC_NUMBERS_H_
25
26 #define FORTRAN_RUNTIME_IOSTAT_END (-1)
27 #define FORTRAN_RUNTIME_IOSTAT_EOR (-2)
28 #define FORTRAN_RUNTIME_IOSTAT_FLUSH (-3)
29 #define FORTRAN_RUNTIME_IOSTAT_INQUIRE_INTERNAL_UNIT 256
30
31 #define FORTRAN_RUNTIME_STAT_FAILED_IMAGE 10
32 #define FORTRAN_RUNTIME_STAT_LOCKED 11
33 #define FORTRAN_RUNTIME_STAT_LOCKED_OTHER_IMAGE 12
34 #define FORTRAN_RUNTIME_STAT_STOPPED_IMAGE 13
35 #define FORTRAN_RUNTIME_STAT_UNLOCKED 14
36 #define FORTRAN_RUNTIME_STAT_UNLOCKED_FAILED_IMAGE 15
37 #endif
IntrinsicLibrary
Definition: IntrinsicCall.cpp:172