diff options
Diffstat (limited to 'gcc/f/info-k.def')
-rw-r--r-- | gcc/f/info-k.def | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/gcc/f/info-k.def b/gcc/f/info-k.def new file mode 100644 index 00000000000..9e6052d6150 --- /dev/null +++ b/gcc/f/info-k.def @@ -0,0 +1,41 @@ +/* info-k.def -- Public #include File (module.h template V1.0) + Copyright (C) 1995, 2002 Free Software Foundation, Inc. + Contributed by James Craig Burley. + +This file is part of GNU Fortran. + +GNU Fortran is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU Fortran is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Fortran; see the file COPYING. If not, write to +the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. + + Owning Modules: + info.c + + Modifications: +*/ + +# +/* Kind messages are used in diagnostic location reports of the + form "<file>: In function `foo': <error message>". */ + +FFEINFO_KIND (FFEINFO_kindNONE, "In unknown kind", "") +FFEINFO_KIND (FFEINFO_kindENTITY, "In entity", "e") +FFEINFO_KIND (FFEINFO_kindFUNCTION, "In function", "f") +FFEINFO_KIND (FFEINFO_kindSUBROUTINE, "In subroutine", "u") +FFEINFO_KIND (FFEINFO_kindPROGRAM, "In program", "p") +FFEINFO_KIND (FFEINFO_kindBLOCKDATA, "In block-data unit", "b") +FFEINFO_KIND (FFEINFO_kindCOMMON, "In common block", "c") +FFEINFO_KIND (FFEINFO_kindCONSTRUCT, "In construct", ":") +FFEINFO_KIND (FFEINFO_kindNAMELIST, "In namelist", "n") +FFEINFO_KIND (FFEINFO_kindANY, "In anything", "~") |