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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

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