| Gary Klimowicz | 3e656068 | 2019-12-11 11:13:48 -0800 | [diff] [blame] | 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. |
| peter klausler | fc94aa6 | 2019-10-11 13:46:58 -0700 | [diff] [blame] | 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 | #endif |
| 21 | #ifndef FORTRAN_RUNTIME_MAGIC_NUMBERS_H_ |
| 22 | #define FORTRAN_RUNTIME_MAGIC_NUMBERS_H_ |
| 23 | |
| 24 | #define FORTRAN_RUNTIME_IOSTAT_END (-1) |
| 25 | #define FORTRAN_RUNTIME_IOSTAT_EOR (-2) |
| 26 | #define FORTRAN_RUNTIME_IOSTAT_FLUSH (-3) |
| 27 | #define FORTRAN_RUNTIME_IOSTAT_INQUIRE_INTERNAL_UNIT 1 |
| 28 | |
| 29 | #define FORTRAN_RUNTIME_STAT_FAILED_IMAGE 10 |
| 30 | #define FORTRAN_RUNTIME_STAT_LOCKED 11 |
| 31 | #define FORTRAN_RUNTIME_STAT_LOCKED_OTHER_IMAGE 12 |
| 32 | #define FORTRAN_RUNTIME_STAT_STOPPED_IMAGE 13 |
| 33 | #define FORTRAN_RUNTIME_STAT_UNLOCKED 14 |
| 34 | #define FORTRAN_RUNTIME_STAT_UNLOCKED_FAILED_IMAGE 15 |
| 35 | #endif |