tinycobol/test.code/t15/test15f.c

68 lines
2.5 KiB
C

void STEST901(char *s) {
printf("sub (test15f) C901:(%20s):(ABCDEFGHIJ0123456789):Call by ref from variable\n", s);
}
void STEST902(int v, short s, long long ll) {
//void STEST902(int v) {
printf("sub (test15f) C902 input: (%d:3):(%d:5):(%lld:6666666666): Call by value from variable\n",
v, s, ll
);
v = 33;
s = 55;
ll = 66;
printf("sub (test15f) C902 changed: (%d:33):(%d:55):(%lld:66): Call by value from variable\n",
v, s, ll
);
}
void STEST903(int v) {
printf("sub (test15f) C903:(%d):(5):Call by value from literal\n", v);
}
void STEST904(char * p1, int p2, int p3, char *p4, char *p5) {
printf("sub (test15f) C904:(%3s,%d,%d,%3s,%3s):(XYZ,3,5,XYZ,123):Call alternating modes\n",
p1, p2, p3, p4, p5);
p2 = 6;
p3 = 4;
printf("sub (test15f) C904:(%3s,%d,%d,%3s,%3s):(XYZ,6,4,XYZ,123):Call alternating modes\n",
p1, p2, p3, p4, p5);
}
void STEST905(long long v) {
printf("sub (test15f - C905): Call by value long long literal: (%13lld=1234567890123)\n", v);
v = v - 3;
printf("sub (test15f - C905): Call by value long long literal: (%13lld=1234567890120)\n", v);
}
void STEST906(long long v) {
printf("sub (test15f - C906): Call by value long long literal :(%13lld=1234567890123)\n", v);
v = v - 3;
printf("sub (test15f - C906): Call by value long long literal :(%13lld=1234567890120)\n", v);
}
short STEST907(short v) {
short r = v + 133;
printf("sub (test15f - C907): Call by value short :(%3d=5) returning short :(%3d=138)\n", v, r);
v = v - 3;
printf("sub (test15f - C907): Call by value short :(%3d=5) returning short :(%3d=138)\n", v, r);
return r;
}
int STEST908(short v) {
int r = v + 133;
printf("sub (test15f - C908): Call by value short :(%3d=5) returning int :(%3d=138)\n", v, r);
v = v - 3;
printf("sub (test15f - C908): Call by value short :(%3d=2) returning int :(%3d=138)\n", v, r);
return r;
}
long long STEST909(short v) {
long long r = v + 133;
printf("sub (test15f - C909): Call by value short :(%3d=5) returning long long :(%3lld=138)\n", v, r);
v = v - 3;
printf("sub (test15f - C909): Call by value short :(%3d=2) returning long long :(%3lld=138)\n", v, r);
return r;
}
void STEST910(char *s1, char *s2, char *s3, char *s4) {
printf("C910:(%4s%4s%4s%4s):(ABCD0123EFGH4567):Call by ref and content in alternance\n", s1, s2, s3, s4);
s1[2]='9'; s2[2]='9'; s3[2]='9';s4[2]='9';
}