1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- a/fortran/library_f.c
+++ b/fortran/library_f.c
@@ -266,9 +266,9 @@
/* <miscellaneous routines>= */
#ifndef VMS /* we'll use the Fortran version in VMS*/
FORTRAN_SUBR ( CCPAL1, ccpal1,
- (void (* routne) (), int *n, int type[], int length[]),
- (void (* routne) (), int *n, int type[], int length[]),
- (void (* routne) (), int *n, int type[], int length[]))
+ (void (* routne) (...), int *n, int type[], int length[]),
+ (void (* routne) (...), int *n, int type[], int length[]),
+ (void (* routne) (...), int *n, int type[], int length[]))
{
static int item_sizes[] = {
(int) sizeof (char), /* 0: bytes */
|
