- extern int G77_vxtidate_0 (integer *m, integer *d, integer *y);
- return G77_vxtidate_0 (m, d, y);
+ /* Fail to link, so user sees attempt to invoke non-Y2K-compliant
+ routine. */
+ extern int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y);
+ return G77_vxtidate_y2kbuggy_0 (m, d, y);
+}
+#endif
+
+#ifdef Lvxtidt_y2kbug
+int vxtidate_y2kbug__ (integer *m, integer *d, integer *y) {
+ /* If user wants to invoke the non-Y2K-compliant routine via
+ an `EXTERNAL' interface, avoiding the warning via g77's
+ `INTRINSIC' interface, force coding of "y2kbug" string in
+ user's program. */
+ extern int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y);
+ return G77_vxtidate_y2kbug_0 (m, d, y);