diff options
Diffstat (limited to 'lib/libF77')
| -rw-r--r-- | lib/libF77/abort_.c | 2 | ||||
| -rw-r--r-- | lib/libF77/ef1asc_.c | 4 | ||||
| -rw-r--r-- | lib/libF77/getenv_.c | 2 | ||||
| -rw-r--r-- | lib/libF77/main.c | 1 | ||||
| -rw-r--r-- | lib/libF77/s_rnge.c | 2 |
5 files changed, 3 insertions, 8 deletions
diff --git a/lib/libF77/abort_.c b/lib/libF77/abort_.c index 9d4a056..96b960d 100644 --- a/lib/libF77/abort_.c +++ b/lib/libF77/abort_.c @@ -12,7 +12,5 @@ int abort_(void) #endif { sig_die("Fortran abort routine called", 1); -#ifdef __cplusplus return 0; -#endif } diff --git a/lib/libF77/ef1asc_.c b/lib/libF77/ef1asc_.c index b2b8d72..78993b8 100644 --- a/lib/libF77/ef1asc_.c +++ b/lib/libF77/ef1asc_.c @@ -8,14 +8,12 @@ #ifdef KR_headers extern VOID s_copy(); -ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; +int ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; #else extern void s_copy(char*,char*,ftnlen,ftnlen); int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) #endif { s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); -#ifdef __cplusplus return 0; -#endif } diff --git a/lib/libF77/getenv_.c b/lib/libF77/getenv_.c index 2a035ea..7ba2de5 100644 --- a/lib/libF77/getenv_.c +++ b/lib/libF77/getenv_.c @@ -30,7 +30,7 @@ for(fp = fname ; fp < flast ; ++fp) break; } -while (ep = *env++) +while ( (ep = *env++) ) { for(fp = fname; fp<flast ; ) if(*fp++ != *ep++) diff --git a/lib/libF77/main.c b/lib/libF77/main.c index 79f1943..7c1127c 100644 --- a/lib/libF77/main.c +++ b/lib/libF77/main.c @@ -90,6 +90,7 @@ sig_die("Trace trap", 1); int xargc; char **xargv; +int #ifdef KR_headers main(argc, argv) int argc; char **argv; #else diff --git a/lib/libF77/s_rnge.c b/lib/libF77/s_rnge.c index b200fce..fc7f0b6 100644 --- a/lib/libF77/s_rnge.c +++ b/lib/libF77/s_rnge.c @@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1 while((i = *varn) && i != ' ') putc(*varn++, stderr); sig_die(".", 1); -#ifdef __cplusplus return 0; -#endif } |
