fix prototype of itest1 for INTERFACE64

This commit is contained in:
Martin Kroeker
2023-10-08 11:36:06 +02:00
committed by GitHub
parent 1806cfecbc
commit 65bfe1a06d

View File

@@ -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*);