Mercurial > hg > CbC > CbC_gcc

comparison gcc/fortran/libgfortran.h @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* Header file to the Fortran front-end and runtime library 1 /* Header file to the Fortran front-end and runtime library
2 Copyright (C) 2007-2018 Free Software Foundation, Inc. 2 Copyright (C) 2007-2020 Free Software Foundation, Inc.
3 3
4 This file is part of GCC. 4 This file is part of GCC.
5 5
6 GCC is free software; you can redistribute it and/or modify it under 6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free 7 the terms of the GNU General Public License as published by the Free
71 #define GFC_RTCHECK_ARRAY_TEMPS (1<<1) 71 #define GFC_RTCHECK_ARRAY_TEMPS (1<<1)
72 #define GFC_RTCHECK_RECURSION (1<<2) 72 #define GFC_RTCHECK_RECURSION (1<<2)
73 #define GFC_RTCHECK_DO (1<<3) 73 #define GFC_RTCHECK_DO (1<<3)
74 #define GFC_RTCHECK_POINTER (1<<4) 74 #define GFC_RTCHECK_POINTER (1<<4)
75 #define GFC_RTCHECK_MEM (1<<5) 75 #define GFC_RTCHECK_MEM (1<<5)
76 #define GFC_RTCHECK_BITS (1<<6)
76 #define GFC_RTCHECK_ALL (GFC_RTCHECK_BOUNDS | GFC_RTCHECK_ARRAY_TEMPS \ 77 #define GFC_RTCHECK_ALL (GFC_RTCHECK_BOUNDS | GFC_RTCHECK_ARRAY_TEMPS \
77 | GFC_RTCHECK_RECURSION | GFC_RTCHECK_DO \ 78 | GFC_RTCHECK_RECURSION | GFC_RTCHECK_DO \
78 | GFC_RTCHECK_POINTER | GFC_RTCHECK_MEM) 79 | GFC_RTCHECK_POINTER | GFC_RTCHECK_MEM \
80 | GFC_RTCHECK_BITS)
79 81
80 /* Special unit numbers used to convey certain conditions. Numbers -4 82 /* Special unit numbers used to convey certain conditions. Numbers -4
81 thru -9 available. NEWUNIT values start at -10. */ 83 thru -9 available. NEWUNIT values start at -10. */
82 #define GFC_INTERNAL_UNIT -1 /* KIND=1 Internal Unit. */ 84 #define GFC_INTERNAL_UNIT -1 /* KIND=1 Internal Unit. */
83 #define GFC_INTERNAL_UNIT4 -2 /* KIND=4 Internal Unit. */ 85 #define GFC_INTERNAL_UNIT4 -2 /* KIND=4 Internal Unit. */
170 can take any arg with the pointer attribute as a param. These are also 172 can take any arg with the pointer attribute as a param. These are also
171 used in the run-time library for IO. */ 173 used in the run-time library for IO. */
172 typedef enum 174 typedef enum
173 { BT_UNKNOWN = 0, BT_INTEGER, BT_LOGICAL, BT_REAL, BT_COMPLEX, 175 { BT_UNKNOWN = 0, BT_INTEGER, BT_LOGICAL, BT_REAL, BT_COMPLEX,
174 BT_DERIVED, BT_CHARACTER, BT_CLASS, BT_PROCEDURE, BT_HOLLERITH, BT_VOID, 176 BT_DERIVED, BT_CHARACTER, BT_CLASS, BT_PROCEDURE, BT_HOLLERITH, BT_VOID,
175 BT_ASSUMED, BT_UNION 177 BT_ASSUMED, BT_UNION, BT_BOZ
176 } 178 }
177 bt; 179 bt;