Erreur END_SUB

Annee_Liste(2024,"Z:\Lst.txt"): ' fichier réultat
END

SUB Annee_Liste(an,fr$)
 ' Liste des jours de l'année an, résulat dans le fichier fr$
 ' 1 art. = N°mois,N°jour,NomJour (2 lettres), ex: 2,10,Sa (=Samedi 10 Février)
 DIM_LOCAL lm(12),jj$(6),m,j,jd,js
 lm(1)=31: lm(2)=28: lm(3)=31: lm(4)=30: lm(5)=31: lm(6)=30
 lm(7)=31: lm(8)=31: lm(9)=30: lm(10)=31: lm(11)=30: lm(12)=31
 IF (MOD(an,4)=0) AND ((MOD(an,100)>0) OR (MOD(an,400)=0)) THEN lm(2)=29: ' bisex.
 jj$(0)="DI":jj$(1)="Lu":jj$(2)="Ma":jj$(3)="Me":jj$(4)="Je":jj$(5)="Ve":jj$(6)="Sa"
 DLIST 500
 FOR m = 1 TO 12
     FOR j = 1 TO lm(m)
         jd = an: IF m<3 THEN jd = jd-1
         js = INT(23*m/9)+j+4+an+INT(jd/4)-INT(jd/100)+INT(jd/400)
         IF m > 2 THEN js = js-2
         js = js-7*INT(js/7): ITEM_ADD 500,STR$(m)+","+STR$(j)+","+jj$(js)
     NEXT j
 NEXT m
 FILE_SAVE 500,fr$: DELETE 500
END_SUB

test()
end
rem ============================================================================
SUB test()
   ' dim_local c$(5), a(3),b(4) : ' <---- OK
    dim_local x(3),y$(5)       : ' <---- KO !!!!!!!
   ' dim_local u,v$             : ' <---- OK
   ' dim_local a$(10)           : ' <---- OK    
END_SUB
rem ============================================================================

DIM_LOCAL m,j,jd,js ,jj$(6),lm(12)