maintainer-feedback requested: [Bug 270890] lang/f2c getarg_.c:17:14: error: unknown type name 'ftnint'

Bugzilla Automation <bugzilla@FreeBSD.org> has asked freebsd-fortran (Nobody)
<fortran@FreeBSD.org> for maintainer-feedback:
Bug 270890: lang/f2c getarg_.c:17:14: error: unknown type name 'ftnint'
https://bugs.freebsd.org/bugzilla/show_bug.cgi?id=270890



--- Description ---
13.2 amd64, both in poudriere and live system building

last major dependency to finish upgrading some ports, but i cannot get it
built. It has this same set of failures in poudriere and from ports. not sure
what is causing the issue, seems to be a header problem, but the f2c.h header
exists and is defining the missing types.

cc -c -O2 -pipe -march=westmere  -fstack-protector-strong -fno-strict-aliasing 
-fPIC -Donexit=on_exit -DSkip_f2c_Undefs main.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC s_rnge.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC abort_.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC exit_.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC getarg_.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC iargc_.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC getenv_.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC signal_.c
cc -c -DSkip_f2c_Undefs -O2 -pipe -march=westmere  -fstack-protector-strong
-fno-strict-aliasing  -fPIC s_stop.c
getarg_.c:17:14: error: unknown type name 'ftnint'
void getarg_(ftnint *n, char *s, ftnlen ls)
	     ^
getarg_.c:17:34: error: unknown type name 'ftnlen'
void getarg_(ftnint *n, char *s, ftnlen ls)
				 ^
2 errors generated.
s_rnge.c:13:8: error: unknown type name 'VOID'
extern VOID sig_die(const char*,int);
       ^
gmake[1]: *** [Makefile:22: getarg_.o] Error 1
gmake[1]: *** Waiting for unfinished jobs....
s_rnge.c:14:1: error: unknown type name 'integer'
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
^
iargc_.c:9:1: error: unknown type name 'ftnint'
ftnint iargc_(void)
^
s_rnge.c:14:28: error: unknown type name 'ftnint'
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
			   ^
1 error generated.
s_rnge.c:14:56: error: unknown type name 'ftnint'
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
						       ^
4 errors generated.
exit_.c:30:7: error: unknown type name 'integer'
exit_(integer *rc)
      ^
gmake[1]: *** [Makefile:22: iargc_.o] Error 1
1 error generated.
gmake[1]: *** [Makefile:22: s_rnge.o] Error 1
gmake[1]: *** [Makefile:22: exit_.o] Error 1
ld -r -x -o abort_.xxx abort_.o
getenv_.c:11:31: error: expected identifier
extern char *F77_aloc(ftnlen, const char*);
			      ^
getenv_.c:31:35: error: unknown type name 'ftnlen'
getenv_(char *fname, char *value, ftnlen flen, ftnlen vlen)
				  ^
signal_.c:7:2: error: getenv_.c:unknown type name 'ftnint'31:
48: error: unknown type name 'ftnlen'
 ftnint
 ^
getenv_(char *fname, char *value, ftnlen flen, ftnlen vlen)
					       ^
getenv_.c:35:2: error: use of undeclared identifier 'integer'
	integer i;
	^
signal_.c:11:9: error: unknown type name 'integer'
signal_(integer *sigp, sig_pf proc)
	^
getenv_.c:39:6: error: use of undeclared identifier 'i'
	for(i = 0; i < sizeof(buf); i++) {
	    ^
s_stop.c:20:21: error: unknown type name 'ftnlen'
int s_stop(char *s, ftnlen n)
		    ^
getenv_.c:39:13: error: use of undeclared identifier 'i'
	for(i = 0; i < sizeof(buf); i++) {
		   ^
getenv_.c:39:30: error: use of undeclared identifier 'i'
	for(i = 0; i < sizeof(buf); i++) {
				    ^
signal_.c:17:10: error: use of undeclared identifier 'ftnint'
	return (ftnint)signal(sig, proc);
		^
getenv_.c:40:7: error: use of undeclared identifier 'i'
		if (i == flen || (buf[i] = fname[i]) == ' ') {
		    ^
3 errors generated.
getenv_.c:40:25: error: use of undeclared identifier 'i'
1gmake[1]: *** [Makefile:23: signal_.o] Error 1
 error generated.
		if (i == flen || (buf[i] = fname[i]) == ' ') {
				      ^
getenv_.c:40:36: error: use of undeclared identifier 'i'
		if (i == flen || (buf[i] = fname[i]) == ' ') {
						 ^
getenv_.c:41:8: error: use of undeclared identifier 'i'
			buf[i] = 0;
			    ^
getenv_.c:46:8: error: use of undeclared identifier 'i'
	while(i < flen && fname[i] != ' ')
	      ^
getenv_.c:46:26: error: use of undeclared identifier 'i'
	while(i < flen && fname[i] != ' ')
				^
mv abort_.xxx abort_.o
getenv_.c:47:3: error: use of undeclared identifier 'i'
		i++;
		^
getenv_.c:48:53: error: use of undeclared identifier 'i'
	strncpy(fp = F77_aloc(i+1, "getenv_"), fname, (int)i);
							   ^
getenv_.c:48:24: error: use of undeclared identifier 'i'
	strncpy(fp = F77_aloc(i+1, "getenv_"), fname, (int)i);
			      ^
getenv_.c:49:5: error: use of undeclared identifier 'i'
	fp[i] = 0;
	   ^
17 errors generated.
gmake[1]: *** [Makefile:22: s_stop.o] Error 1
gmake[1]: *** [Makefile:22: getenv_.o] Error 1
gmake[1]: Leaving directory '/usr/ports/lang/f2c/work/f2c-20200916/libf2c'
*** Error code 2