]>
git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/f/ansify.c
2 Copyright (C) 1997, 2003 Free Software Foundation, Inc.
3 Contributed by James Craig Burley.
5 This file is part of GNU Fortran.
7 GNU Fortran is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Fortran is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Fortran; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
24 #include "coretypes.h"
27 #define die_unless(c) \
30 fprintf (stderr, "%s:%lu: %s\n", argv[1], lineno, #c); \
35 static void ATTRIBUTE_NORETURN
42 main(int argc
, char **argv
)
45 static unsigned long lineno
= 1;
47 die_unless (argc
== 2);
50 /* This file is automatically generated from `%s',\n\
51 which you should modify instead. */\n\
56 while ((c
= getchar ()) != EOF
)
74 die_unless (c
!= EOF
);
92 die_unless (c
!= EOF
);
110 die_unless (c
!= EOF
);
128 die_unless (c
!= EOF
);
150 die_unless (c
!= EOF
);
161 die_unless (c
!= EOF
);
176 /* Don't bother outputting content of comments. */
187 die_unless (c
== EOF
);