Commit 235678dc by Jason Merrill Committed by Jason Merrill

date_.c (G77_date_y2kbuggy_0): Declare G77_abort_0 noreturn.

        * libU77/date_.c (G77_date_y2kbuggy_0): Declare G77_abort_0 noreturn.
        * libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise.

From-SVN: r60256
parent fc883552
Wed Dec 18 11:33:35 2002 Jason Merrill <jason@redhat.com>
* libU77/date_.c (G77_date_y2kbuggy_0): Declare G77_abort_0 noreturn.
* libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise.
2002-11-26 Nathanael Nerode <neroden@gcc.gnu.org> 2002-11-26 Nathanael Nerode <neroden@gcc.gnu.org>
* configure.in: Remove skip-this-dir support. * configure.in: Remove skip-this-dir support.
......
...@@ -49,7 +49,7 @@ int ...@@ -49,7 +49,7 @@ int
G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)), G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
ftnlen buf_len __attribute__ ((__unused__))) ftnlen buf_len __attribute__ ((__unused__)))
{ {
extern int G77_abort_0 (); extern int G77_abort_0() __attribute__ ((noreturn));
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message); fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
G77_abort_0 (); G77_abort_0 ();
} }
......
...@@ -58,7 +58,7 @@ G77_vxtidate_y2kbuggy_0 (integer * m __attribute__ ((__unused__)), ...@@ -58,7 +58,7 @@ G77_vxtidate_y2kbuggy_0 (integer * m __attribute__ ((__unused__)),
integer * d __attribute__ ((__unused__)), integer * d __attribute__ ((__unused__)),
integer * y __attribute__ ((__unused__))) integer * y __attribute__ ((__unused__)))
{ {
extern int G77_abort_0 (); extern int G77_abort_0() __attribute__ ((noreturn));
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message); fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
G77_abort_0 (); G77_abort_0 ();
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment