Mercurial > hg > CbC > CbC_gcc

comparison gcc/fortran/iso-fortran-env.def @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 /* Copyright (C) 2006-2017 Free Software Foundation, Inc. 1 /* Copyright (C) 2006-2018 Free Software Foundation, Inc.
2 2
3 This file is part of GCC. 3 This file is part of GCC.
4 4
5 GCC is free software; you can redistribute it and/or modify it under 5 GCC is free software; you can redistribute it and/or modify it under
6 the terms of the GNU General Public License as published by the Free 6 the terms of the GNU General Public License as published by the Free
84 "stat_locked_other_image", \ 84 "stat_locked_other_image", \
85 GFC_STAT_LOCKED_OTHER_IMAGE, GFC_STD_F2008) 85 GFC_STAT_LOCKED_OTHER_IMAGE, GFC_STD_F2008)
86 NAMED_INTCST (ISOFORTRANENV_FILE_STAT_STOPPED_IMAGE, "stat_stopped_image", \ 86 NAMED_INTCST (ISOFORTRANENV_FILE_STAT_STOPPED_IMAGE, "stat_stopped_image", \
87 GFC_STAT_STOPPED_IMAGE, GFC_STD_F2008) 87 GFC_STAT_STOPPED_IMAGE, GFC_STD_F2008)
88 NAMED_INTCST (ISOFORTRANENV_FILE_STAT_FAILED_IMAGE, "stat_failed_image", \ 88 NAMED_INTCST (ISOFORTRANENV_FILE_STAT_FAILED_IMAGE, "stat_failed_image", \
89 GFC_STAT_FAILED_IMAGE, GFC_STD_F2008_TS) 89 GFC_STAT_FAILED_IMAGE, GFC_STD_F2018)
90 NAMED_INTCST (ISOFORTRANENV_FILE_STAT_UNLOCKED, "stat_unlocked", \ 90 NAMED_INTCST (ISOFORTRANENV_FILE_STAT_UNLOCKED, "stat_unlocked", \
91 GFC_STAT_UNLOCKED, GFC_STD_F2008) 91 GFC_STAT_UNLOCKED, GFC_STD_F2008)
92 92
93 93
94 /* The arguments to NAMED_KINDARRAY are: 94 /* The arguments to NAMED_KINDARRAY are:
124 get_int_kind_from_node (ptr_type_node), GFC_STD_F2008) 124 get_int_kind_from_node (ptr_type_node), GFC_STD_F2008)
125 125
126 NAMED_DERIVED_TYPE (ISOFORTRAN_EVENT_TYPE, "event_type", \ 126 NAMED_DERIVED_TYPE (ISOFORTRAN_EVENT_TYPE, "event_type", \
127 flag_coarray == GFC_FCOARRAY_LIB 127 flag_coarray == GFC_FCOARRAY_LIB
128 ? get_int_kind_from_node (ptr_type_node) 128 ? get_int_kind_from_node (ptr_type_node)
129 : gfc_default_integer_kind, GFC_STD_F2008_TS) 129 : gfc_default_integer_kind, GFC_STD_F2018)
130
131 NAMED_DERIVED_TYPE (ISOFORTRAN_TEAM_TYPE, "team_type", \
132 flag_coarray == GFC_FCOARRAY_LIB
133 ? get_int_kind_from_node (ptr_type_node)
134 : gfc_default_integer_kind, GFC_STD_F2018)
130 135
131 #undef NAMED_INTCST 136 #undef NAMED_INTCST
132 #undef NAMED_KINDARRAY 137 #undef NAMED_KINDARRAY
133 #undef NAMED_FUNCTION 138 #undef NAMED_FUNCTION
134 #undef NAMED_SUBROUTINE 139 #undef NAMED_SUBROUTINE