Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:manfred999
ftnchek
unix_intrins.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File unix_intrins.patch of Package ftnchek
--- ftnchek/symtab.h.orig 2020-09-10 10:41:56.801853900 +0200 +++ ftnchek/symtab.h 2020-10-11 16:12:58.368738058 +0200 @@ -619,6 +619,7 @@ typedef struct MVHead { /* ModVarListHea #define I_1to4 (-5) /* 1 to 4 arguments */ #define I_2or3 (-6) /* 2 or 3 arguments */ #define I_2to4 (-7) /* 2 to 4 arguments */ +#define I_3or4 (-8) /* 3 or 4 arguments */ /* for intrins_flags field */ --- ftnchek/symtab.c.orig 2020-09-10 10:41:58.317890638 +0200 +++ ftnchek/symtab.c 2020-10-11 16:12:12.355649242 +0200 @@ -707,6 +707,14 @@ check_intrins_args(id, arg) } numargs_ok = (args_given >= 2 && args_given <= (opt_kind_allowed? 5: 4)); break; + case I_3or4: /* 3 or 4 arguments allowed */ + if (opt_kind_index == -1) { /* no KIND keyword found */ + if (opt_kind_allowed && args_given == 5) /* last arg, no keyword */ + opt_kind_index = 1; + } + numargs_ok = (args_given == 3 || args_given == 4 || + (opt_kind_index != -1 && args_given == 5)); + break; default: /* positive numargs: must agree */ if (opt_kind_index == -1) { /* no KIND keyword found */ if (opt_kind_allowed && args_given == (unsigned)(numargs+1)) /* last arg, no keyword */ --- ftnchek/intrins.c.2 2020-10-11 12:03:37.736445877 +0200 +++ ftnchek/intrins.c 2020-10-11 15:40:12.870234001 +0200 @@ -638,20 +638,46 @@ SYSTEM_CLOCK ([COUNT, Obtai {"LOC", 1,I|R|D|C|Z|L|STR,type_INTEGER, I_NONSTD|I_EXTRA,NULL}, /* Utility routines */ -{"EXIT", I_0or1, I, type_SUBROUTINE,I_NONSTD|I_EXTRA,NULL}, +{"EXIT", I_0or1, I, type_SUBROUTINE,I_NONSTD|I_EXTRA,NULL}, +{"LNBLNK", 1, STR, type_INTEGER, I_NONSTD|I_EXTRA,NULL}, #endif /* Unix only. These are a selected subset of the F77 library routines listed in the USENIX manual section 3F. */ #ifdef UNIX_INTRINSICS +{"ACCESS", 2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"ABORT", 1, STR, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"ALARM", I_2or3, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, {"AND", 2, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"BACKTRACE", 0, 0, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"CHDIR", I_1or2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"CHMOD", I_2or3, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"COMPLEX", 2, I|R|D, type_COMPLEX, I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"CTIME", I_1or2, I|STR, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"DTIME", I_1or2, R, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"ETIME", I_1or2, R, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FDATE", I_0or1, STR, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FGET", I_1or2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"FGETC", I_2or3, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"FLUSH", I_0or1, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FNUM", 1, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FPUT", I_1or2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"FPUTC", I_2or3, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"FREE", 1, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FSEEK", I_3or4, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FSTAT", I_2or3, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"FTELL", I_1or2, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"GETCWD", I_1or2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, /* I, then STR not enforced in GETARG. */ {"GETARG", 2, I|STR, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"GETENV", 2, STR, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"GETGID", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"GETLOG", 1, STR, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"GETPID", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"GETUID", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, {"GMTIME", 2, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL},/*2nd arg array(9)*/ +{"HOSTNM", I_1or2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, #ifdef IARGC_NO_ARG {"IARGC", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, #else @@ -661,9 +687,24 @@ SYSTEM_CLOCK ([COUNT, Obtai {"IARGC", I_0or1, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, #endif #endif +{"IERRNO", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"INT2", 1, I|R|D|C|Z,type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"INT8", 1, I|R|D|C|Z,type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"ITIME", 1, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"LONG", 1, I|R|D|C|Z,type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"ISATTY", 1, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"ISNAN", 1, R, type_LOGICAL, I_NONSTD|I_UNIX,NULL}, +{"KILL", I_2or3, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"LINK", I_2or3, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"LSHIFT", 2, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"LSTAT", I_2or3, I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"LTIME", 2, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL},/*2nd arg array(9)*/ +{"MALLOC", 1, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"MCLOCK", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"MCLOCK8", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, {"OR", 2, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"PERROR", 1, STR, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"RENAME", I_2or3, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, #ifdef RAND_NO_ARG /*RAND() form*/ {"IRAND", 0, 0, type_INTEGER, I_NONSTD|I_UNIX,NULL}, {"RAND", 0, 0, type_REAL, I_NONSTD|I_UNIX,NULL}, @@ -677,9 +718,18 @@ SYSTEM_CLOCK ([COUNT, Obtai #endif #endif {"RSHIFT", 2, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"SECOND", I_0or1, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"SIGNAL", I_2or3, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"SLEEP", 1, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, {"SRAND", 1, I|R, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL},/*AIX has this*/ +{"STAT", I_2or3, I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"SYMLNK", I_2or3, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"SYSTEM", 1, STR, type_INTEGER, I_NONSTD|I_UNIX,NULL}, {"TIME", I_0or1, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"TIME8", I_0or1, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, +{"TTYNAM", I_1or2, I|STR, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, +{"UMASK", I_1or2, I, type_SUBROUTINE,I_NONSTD|I_UNIX,NULL}, +{"UNLINK", I_1or2, STR|I, type_SUBROUTINE,I_MIXED_ARGS|I_NONSTD|I_UNIX,NULL}, {"XOR", 2, I, type_INTEGER, I_NONSTD|I_UNIX,NULL}, #endif
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor