Problem with CLEAR

[bartok]

We've had a few corner cases like this one since the introduction of variable-width strings in types. Do you get the same problem with CLEAR if you declare your element as a fixed string element? For example:

Code: QB64: [Select]

1.     T AS STRING * 256

No, in this way it doesn't crash:

Code: QB64: [Select]

1. DO
2.     CLEAR
3.  
4.     CLS
5.     OPTION BASE 1
6.  
7.  
8.     TempiRitorno:
9.     DATA 0,2,5,10,20,50,100,200,500,1000: '------------------------------------------------------>removed text end changed with "0".
10.     DATA 1,0.82,1.24,1.46,1.69,2.04,2.34,2.70,3.22,3.64
11.     CoefficientiIdrogrammaUnitarioMockus: 'dati dell'idrogramma unitario di Mockus
12.     DATA 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5: 't/ta
13.     DATA 0.03,0.1,0.19,0.31,0.47,0.66,0.82,0.93,0.99,1,0.99,0.93,0.86,0.78,0.68,0.56,0.46,0.39,0.33,0.28,0.244,0.207,0.177,0.147,0.127,0.107,0.092,0.077,0.066,0.055,0.048,0.04,0.035,0.029,0.025,0.021,0.018,0.015,0.013,0.011,0.009,0.008,0.007,0.006,0.006,0.005,0.004,0.003,0.001,0: ' t/tp
14.  
15.     TYPE mockus
16.         tSUta AS SINGLE
17.         qSUqp AS SINGLE
18.     END TYPE
19.     TYPE TempiRitorno
20.         T AS STRING * 10 '-------------------------------------------------------------------------->changed STRING to SINGLE
21.         k AS SINGLE
22.     END TYPE
23.     DIM SHARED i%, n%, z%, ieto%, VisualizzaIeto%
24.     DIM SHARED TempiRitorno(10) AS TempiRitorno
25.     DIM mockus(50) AS mockus
26.  
27.  
28.     ' 'RESTORE group 1:
29.     RESTORE TempiRitorno
30.     FOR i% = 1 TO 20
31.         IF i% <= 10 THEN READ TempiRitorno(i%).T
32.         IF i% > 10 THEN READ TempiRitorno(i% - 10).k
33.     NEXT i%
34.  
35.     ' 'RESTORE group 2:
36.     RESTORE CoefficientiIdrogrammaUnitarioMockus
37.     FOR i% = 1 TO 100
38.         IF i% <= 50 THEN READ mockus(i%).tSUta
39.         IF i% > 50 THEN READ mockus(i% - 50).qSUqp
40.     NEXT i%
41.  
42.  
43.     '[...]
44.     PRINT
45.     PRINT "- Restart program? [Y/N]"
46.     DO
47.         _LIMIT 50
48.         KeyPress$ = LCASE$(INKEY$)
49.     LOOP UNTIL KeyPress$ = "y" OR KeyPress$ = "n"
50.     IF KeyPress$ = "n" THEN EXIT DO
51. LOOP
52. END
53.  
54.