fix prototype of itest1 for INTERFACE64
This commit is contained in:
parent
1806cfecbc
commit
65bfe1a06d
|
@ -437,7 +437,7 @@ L40:
|
|||
static real stemp[1], strue[8];
|
||||
extern /* Subroutine */ int stest_(int*, real*,real*,real*,real*), sscaltest_(int*,real*,real*,int*);
|
||||
extern real sasumtest_(int*,real*,int*);
|
||||
extern /* Subroutine */ int itest1_(int*,int*), stest1_(real*,real*,real*,real*);
|
||||
extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(real*,real*,real*,real*);
|
||||
static real sx[8];
|
||||
static integer np1;
|
||||
extern integer isamaxtest_(int*,real*,int*);
|
||||
|
|
Loading…
Reference in New Issue