![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM363.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM363.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: C***********************************************************************00010363
2: C DATE***82/08/02*18.33.46
3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
4: C AUDIT FCVS78 V2.0
5: C***** FORTRAN 77 00020363
6: C***** FM363 X66MX - (171) 00030363
7: C***** 00040363
8: C***********************************************************************00050363
9: C***** GENERAL PURPOSE SUBSET REF00060363
10: C***** TEST THAT ALL INTRINSIC FUNCTIONS WOULD ACCEPT 15.3 00070363
11: C***** ANY EXPRESSION OF THE TYPE SPECIFIED IN THE (TABLE 5)00080363
12: C***** INTRINSIC FUNCTION TABLE - ANS REFS - 15.10 00090363
13: C***** 00100363
14: C***** GENERAL COMMENTS 00110363
15: C***** SEGMENTS XINT, XREAL, XAINT, XABS, XAMOD, 00120363
16: C***** XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING 00130363
17: C***** 00140363
18: CBB** ********************** BBCCOMNT **********************************00150363
19: C**** 00160363
20: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170363
21: C**** VERSION 2.0 00180363
22: C**** 00190363
23: C**** 00200363
24: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210363
25: C**** GENERAL SERVICES ADMINISTRATION 00220363
26: C**** FEDERAL SOFTWARE TESTING CENTER 00230363
27: C**** 5203 LEESBURG PIKE, SUITE 1100 00240363
28: C**** FALLS CHURCH, VA. 22041 00250363
29: C**** 00260363
30: C**** (703) 756-6153 00270363
31: C**** 00280363
32: CBE** ********************** BBCCOMNT **********************************00290363
33: CBB** ********************** BBCINITA **********************************00300363
34: C**** SPECIFICATION STATEMENTS 00310363
35: C**** 00320363
36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330363
37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340363
38: CBE** ********************** BBCINITA **********************************00350363
39: CBB** ********************** BBCINITB **********************************00360363
40: C**** INITIALIZE SECTION 00370363
41: DATA ZVERS, ZVERSD, ZDATE 00380363
42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390363
43: DATA ZCOMPL, ZNAME, ZTAPE 00400363
44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410363
45: DATA ZPROJ, ZTAPED, ZPROG 00420363
46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430363
47: DATA REMRKS /' '/ 00440363
48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450363
49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460363
50: C**** 00470363
51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480363
52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490363
53: CZ03 ZPROG = 'PROGRAM NAME' 00500363
54: ZDATE = '07-Nov-85 ' *RP
55: ZCOMPL = 'CCI 5.2 ' *RP
56: ZPROJ = 'TC-85- -410' *RP
57: ZNAME = ' ' *RP
58: ZTAPE = ' ' *RP
59: ZTAPED = '850703 ' *RP
60: C 00570363
61: IVPASS = 0 00580363
62: IVFAIL = 0 00590363
63: IVDELE = 0 00600363
64: IVINSP = 0 00610363
65: IVTOTL = 0 00620363
66: IVTOTN = 0 00630363
67: ICZERO = 0 00640363
68: C 00650363
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660363
70: I01 = 05 00670363
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680363
72: I02 = 06 00690363
73: C 00700363
74: I01 = 5 00710363
75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720363
76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730363
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740363
78: C 00750363
79: I02 = 6 00760363
80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770363
81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780363
82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790363
83: C 00800363
84: CBE** ********************** BBCINITB **********************************00810363
85: NUVI = I02 00820363
86: IVTOTL = 14 00830363
87: ZPROG = 'FM363' 00840363
88: CBB** ********************** BBCHED0A **********************************00850363
89: C**** 00860363
90: C**** WRITE REPORT TITLE 00870363
91: C**** 00880363
92: WRITE (I02, 90002) 00890363
93: WRITE (I02, 90006) 00900363
94: WRITE (I02, 90007) 00910363
95: WRITE (I02, 90008) ZVERS, ZVERSD 00920363
96: WRITE (I02, 90009) ZPROG, ZPROG 00930363
97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940363
98: CBE** ********************** BBCHED0A **********************************00950363
99: C***** 00960363
100: C***** HEADER FOR SEGMENT 171 WRITTEN 00970363
101: WRITE (NUVI,17101) 00980363
102: 17101 FORMAT(1H ,// 2X,42HX66MX - (171) SUBSET INTRINSIC FUNCTIONS--//00990363
103: 1 10X,25HIN ARITHMETIC EXPRESSIONS 01000363
104: 2 //2X, 27H SUBSET REF. - 15.10, 6.1.4) 01010363
105: CBB** ********************** BBCHED0B **********************************01020363
106: C**** WRITE DETAIL REPORT HEADERS 01030363
107: C**** 01040363
108: WRITE (I02,90004) 01050363
109: WRITE (I02,90004) 01060363
110: WRITE (I02,90013) 01070363
111: WRITE (I02,90014) 01080363
112: WRITE (I02,90015) IVTOTL 01090363
113: CBE** ********************** BBCHED0B **********************************01100363
114: C***** 01110363
115: C***** TEST OF INTRINSIC FUNCTIONS IN EXPRESSIONS 01120363
116: C***** 01130363
117: CT001* TEST 1 01140363
118: IVTNUM = 1 01150363
119: RJBVS = 5.2 01160363
120: IJAVI = INT(RJBVS) + 3 01170363
121: IF (IJAVI - 8) 20010, 10010, 20010 01180363
122: 10010 IVPASS = IVPASS + 1 01190363
123: WRITE (NUVI, 80002) IVTNUM 01200363
124: GO TO 0011 01210363
125: 20010 IVFAIL = IVFAIL + 1 01220363
126: IVCORR = 8 01230363
127: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 01240363
128: 0011 CONTINUE 01250363
129: CT002* TEST 2 01260363
130: IVTNUM = 2 01270363
131: RJBVS = 4.8 01280363
132: IJAVI = IFIX(RJBVS) - 2 01290363
133: IF (IJAVI - 2) 20020, 10020, 20020 01300363
134: 10020 IVPASS = IVPASS + 1 01310363
135: WRITE (NUVI, 80002) IVTNUM 01320363
136: GO TO 0021 01330363
137: 20020 IVFAIL = IVFAIL + 1 01340363
138: IVCORR = 2 01350363
139: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 01360363
140: 0021 CONTINUE 01370363
141: CT003* TEST 3 01380363
142: IVTNUM = 3 01390363
143: RJBVS = 2.8 01400363
144: IJAVI = 50 * NINT(RJBVS) 01410363
145: IF (IJAVI - 150) 20030, 10030, 20030 01420363
146: 10030 IVPASS = IVPASS + 1 01430363
147: WRITE (NUVI, 80002) IVTNUM 01440363
148: GO TO 0031 01450363
149: 20030 IVFAIL = IVFAIL + 1 01460363
150: IVCORR = 150 01470363
151: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 01480363
152: 0031 CONTINUE 01490363
153: CT004* TEST 4 01500363
154: IVTNUM = 4 01510363
155: IJBVI = -4 01520363
156: IJAVI = IABS(IJBVI) / (-4) 01530363
157: IF (IJAVI + 1) 20040, 10040, 20040 01540363
158: 10040 IVPASS = IVPASS + 1 01550363
159: WRITE (NUVI, 80002) IVTNUM 01560363
160: GO TO 0041 01570363
161: 20040 IVFAIL = IVFAIL + 1 01580363
162: IVCORR = -1 01590363
163: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 01600363
164: 0041 CONTINUE 01610363
165: CT005* TEST 5 01620363
166: IVTNUM = 5 01630363
167: IJBVI = 7 01640363
168: IJDVI = 4 01650363
169: IJAVI = MOD(IJBVI, IJDVI) ** 2 01660363
170: IF (IJAVI - 9) 20050, 10050, 20050 01670363
171: 10050 IVPASS = IVPASS + 1 01680363
172: WRITE (NUVI, 80002) IVTNUM 01690363
173: GO TO 0051 01700363
174: 20050 IVFAIL = IVFAIL + 1 01710363
175: IVCORR = 9 01720363
176: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 01730363
177: 0051 CONTINUE 01740363
178: CT006* TEST 6 01750363
179: IVTNUM = 6 01760363
180: IJBVI = -3 01770363
181: IJDVI = 1 01780363
182: IJAVI = 2 ** ISIGN(IJBVI, IJDVI) 01790363
183: IF (IJAVI - 8) 20060, 10060, 20060 01800363
184: 10060 IVPASS = IVPASS + 1 01810363
185: WRITE (NUVI, 80002) IVTNUM 01820363
186: GO TO 0061 01830363
187: 20060 IVFAIL = IVFAIL + 1 01840363
188: IVCORR = 8 01850363
189: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 01860363
190: 0061 CONTINUE 01870363
191: CT007* TEST 7 01880363
192: IVTNUM = 7 01890363
193: IJBVI = 5 01900363
194: IJDVI = 2 01910363
195: IJEVI = -2 01920363
196: IJAVI = IDIM(IJBVI, IJDVI) * 2 + MAX0(IJEVI, IJDVI) - 7 01930363
197: IF (IJAVI - 1) 20070, 10070, 20070 01940363
198: 10070 IVPASS = IVPASS + 1 01950363
199: WRITE (NUVI, 80002) IVTNUM 01960363
200: GO TO 0071 01970363
201: 20070 IVFAIL = IVFAIL + 1 01980363
202: IVCORR = 1 01990363
203: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 02000363
204: 0071 CONTINUE 02010363
205: CT008* TEST 8 02020363
206: IVTNUM = 8 02030363
207: IJBVI = 2 02040363
208: IJDVI = 3 02050363
209: RJBVS = 2.2 02060363
210: RJDVS = 4.8 02070363
211: RJEVS = -2.2 02080363
212: RJFVS = -3.8 02090363
213: IJAVI = MIN0(IJBVI, IJDVI) * 2 - MAX1(RJBVS, RJDVS) / 2 02100363
214: 1 + MIN1(RJEVS, RJFVS) + 5 02110363
215: IF (IJAVI - 4) 20080, 10080, 20080 02120363
216: 10080 IVPASS = IVPASS + 1 02130363
217: WRITE (NUVI, 80002) IVTNUM 02140363
218: GO TO 0081 02150363
219: 20080 IVFAIL = IVFAIL + 1 02160363
220: IVCORR = 4 02170363
221: WRITE (NUVI, 80010) IVTNUM, IJAVI, IVCORR 02180363
222: 0081 CONTINUE 02190363
223: CT009* TEST 9 02200363
224: IVTNUM = 9 02210363
225: IJBVI = 2 02220363
226: RJAVS = FLOAT(IJBVI) + 3.5 02230363
227: IF (RJAVS - 5.4997) 20090, 10090, 40090 02240363
228: 40090 IF (RJAVS - 5.5003) 10090, 10090, 20090 02250363
229: 10090 IVPASS = IVPASS + 1 02260363
230: WRITE (NUVI, 80002) IVTNUM 02270363
231: GO TO 0091 02280363
232: 20090 IVFAIL = IVFAIL + 1 02290363
233: RVCORR = 5.5 02300363
234: WRITE (NUVI, 80012) IVTNUM, RJAVS, RVCORR 02310363
235: 0091 CONTINUE 02320363
236: CT010* TEST 10 02330363
237: IVTNUM = 10 02340363
238: IJBVI = 2 02350363
239: RJAVS = REAL(IJBVI) * 3.0 02360363
240: IF (RJAVS - 5.9997) 20100, 10100, 40100 02370363
241: 40100 IF (RJAVS - 6.0003) 10100, 10100, 20100 02380363
242: 10100 IVPASS = IVPASS + 1 02390363
243: WRITE (NUVI, 80002) IVTNUM 02400363
244: GO TO 0101 02410363
245: 20100 IVFAIL = IVFAIL + 1 02420363
246: RVCORR = 6.0 02430363
247: WRITE (NUVI, 80012) IVTNUM, RJAVS, RVCORR 02440363
248: 0101 CONTINUE 02450363
249: CT011* TEST 11 02460363
250: IVTNUM = 11 02470363
251: RJBVS = 4.5 02480363
252: RJAVS = AINT(RJBVS) ** 0.5 02490363
253: IF (RJAVS - 1.9999) 20110, 10110, 40110 02500363
254: 40110 IF (RJAVS - 2.0001) 10110, 10110, 20110 02510363
255: 10110 IVPASS = IVPASS + 1 02520363
256: WRITE (NUVI, 80002) IVTNUM 02530363
257: GO TO 0111 02540363
258: 20110 IVFAIL = IVFAIL + 1 02550363
259: RVCORR = 2.0 02560363
260: WRITE (NUVI, 80012) IVTNUM, RJAVS, RVCORR 02570363
261: 0111 CONTINUE 02580363
262: CT012* TEST 12 02590363
263: IVTNUM = 12 02600363
264: RJBVS = 2.8 02610363
265: RJDVS = 2.2 02620363
266: RJAVS = 1.5 * ANINT(RJBVS) + 6.6 / ABS(RJDVS) 02630363
267: IF (RJAVS - 7.4996 ) 20120, 10120, 40120 02640363
268: 40120 IF (RJAVS - 7.5004 ) 10120, 10120, 20120 02650363
269: 10120 IVPASS = IVPASS + 1 02660363
270: WRITE (NUVI, 80002) IVTNUM 02670363
271: GO TO 0121 02680363
272: 20120 IVFAIL = IVFAIL + 1 02690363
273: RVCORR = 7.5 02700363
274: WRITE (NUVI, 80012) IVTNUM, RJAVS, RVCORR 02710363
275: 0121 CONTINUE 02720363
276: CT013* TEST 13 02730363
277: IVTNUM = 13 02740363
278: RJBVS = 4.5 02750363
279: RJDVS = 2.2 02760363
280: IJBVI = -5 02770363
281: IJDVI = 5 02780363
282: RJAVS = (AMOD(RJBVS, RJDVS) + 1.4) * (ISIGN(IJBVI, IJDVI) - 3.0)02790*TI
283: IF (RJAVS - 2.9998) 20130, 10130, 40130 02800363
284: 40130 IF (RJAVS - 3.0002) 10130, 10130, 20130 02810363
285: 10130 IVPASS = IVPASS + 1 02820363
286: WRITE (NUVI, 80002) IVTNUM 02830363
287: GO TO 0131 02840363
288: 20130 IVFAIL = IVFAIL + 1 02850363
289: RVCORR = 3.0 02860363
290: WRITE (NUVI, 80012) IVTNUM, RJAVS, RVCORR 02870363
291: 0131 CONTINUE 02880363
292: CT014* TEST 14 02890363
293: IVTNUM = 14 02900363
294: RJBVS = 6.2 02910363
295: RJDVS = 5.2 02920363
296: IJBVI = 2 02930363
297: IJDVI = 3 02940363
298: RJEVS = 2.0 02950363
299: RJFVS = 3.0 02960363
300: RJAVS = (DIM(RJBVS, RJDVS) * AMAX0(IJBVI, IJDVI)) ** 02970363
301: 1 (AMIN0(IJBVI, IJDVI) - AMIN1(RJEVS, RJFVS)) 02980363
302: IF (RJAVS - 0.99995) 20140, 10140, 40140 02990363
303: 40140 IF (RJAVS - 1.0001) 10140, 10140, 20140 03000363
304: 10140 IVPASS = IVPASS + 1 03010363
305: WRITE (NUVI, 80002) IVTNUM 03020363
306: GO TO 0141 03030363
307: 20140 IVFAIL = IVFAIL + 1 03040363
308: RVCORR = 1.0 03050363
309: WRITE (NUVI, 80012) IVTNUM, RJAVS, RVCORR 03060363
310: 0141 CONTINUE 03070363
311: C***** 03080363
312: CBB** ********************** BBCSUM0 **********************************03090363
313: C**** WRITE OUT TEST SUMMARY 03100363
314: C**** 03110363
315: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03120363
316: WRITE (I02, 90004) 03130363
317: WRITE (I02, 90014) 03140363
318: WRITE (I02, 90004) 03150363
319: WRITE (I02, 90020) IVPASS 03160363
320: WRITE (I02, 90022) IVFAIL 03170363
321: WRITE (I02, 90024) IVDELE 03180363
322: WRITE (I02, 90026) IVINSP 03190363
323: WRITE (I02, 90028) IVTOTN, IVTOTL 03200363
324: CBE** ********************** BBCSUM0 **********************************03210363
325: CBB** ********************** BBCFOOT0 **********************************03220363
326: C**** WRITE OUT REPORT FOOTINGS 03230363
327: C**** 03240363
328: WRITE (I02,90016) ZPROG, ZPROG 03250363
329: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03260363
330: WRITE (I02,90019) 03270363
331: CBE** ********************** BBCFOOT0 **********************************03280363
332: CBB** ********************** BBCFMT0A **********************************03290363
333: C**** FORMATS FOR TEST DETAIL LINES 03300363
334: C**** 03310363
335: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03320363
336: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03330363
337: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03340363
338: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03350363
339: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03360363
340: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03370363
341: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03380363
342: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03390363
343: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03400363
344: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03410363
345: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03420363
346: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03430363
347: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03440363
348: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03450363
349: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03460363
350: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03470363
351: 80050 FORMAT (1H ,48X,A31) 03480363
352: CBE** ********************** BBCFMT0A **********************************03490363
353: CBB** ********************** BBCFMT0B **********************************03500363
354: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03510363
355: C**** 03520363
356: 90002 FORMAT (1H1) 03530363
357: 90004 FORMAT (1H ) 03540363
358: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03550363
359: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03560363
360: 90008 FORMAT (1H ,21X,A13,A17) 03570363
361: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03580363
362: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03590363
363: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03600363
364: 1 7X,7HREMARKS,24X) 03610363
365: 90014 FORMAT (1H ,46H----------------------------------------------, 03620363
366: 1 33H---------------------------------) 03630363
367: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03640363
368: C**** 03650363
369: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03660363
370: C**** 03670363
371: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03680363
372: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03690363
373: 1 A13) 03700363
374: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03710363
375: C**** 03720363
376: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03730363
377: C**** 03740363
378: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03750363
379: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03760363
380: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03770363
381: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03780363
382: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03790363
383: CBE** ********************** BBCFMT0B **********************************03800363
384: C***** 03810363
385: C***** END OF TEST SEGMENT 171 03820363
386: STOP 03830363
387: END 03840363
388: 03850363
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.