blob: c6efd8d6cfc9f44e02ed924cb6e9c9ac714b73ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
$NetBSD: patch-al,v 1.2 1999/11/23 16:05:31 dmcmahill Exp $
--- ./conf/NETBSDSPARC.m4.orig Mon Sep 23 16:18:02 1996
+++ ./conf/NETBSDSPARC.m4 Mon Nov 1 08:58:05 1999
@@ -2,10 +2,9 @@
undefine(`len')
#
-# FORTRAN function names are in upper case
+# append an underscore to FORTRAN function names
#
-define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
+define(`FUNCTION',`$1_')
#
# FORTRAN character strings are passed as follows:
-# XXX is this right?
# a pointer to the base of the string is passed in the normal
# argument list, and the length is passed by value as an extra
|
