Problème avec select case

Bonjour,

Dans un programme très lourd, j'ai écrit une partie de code très simple du type :

Code:

---

1 2 3 4 5 6

select case (ilwr) case(1) ....... case(2:4) .......... end select

---

Je me suis rendu compte que le cas 2 ne fonctionne pas quand ilwr.eq.2.
En regardant la démarche suivie dans le debugeur, je me rend compte qu'après select case le programme exécute une ligne de case 1.

Je sais ce n'est pas très concret mais le programme est beaucoup trop lourd pour l'exposer ici.

Ma question est juste : est ce que quelqu'un a déjà été confronté a ce genre de problème et si oui quelle en est la cause ?


Merci de votre aide

Je n'ai jamais vu ou entendu quelque chose du genre. Je viens de chercher sur Google dans comp.lang.fortran et je ne trouve rien...

2 pistes possibles :

• ton sélecteur (ilwr) provient d'un réel et il est légèrement sous 2
• il y a un bug plus majeur et la mémoire est corrompue

il y a un bug plus majeur et la mémoire est corrompue

vu la taille du programme, je pense qu'on est dans ce cas la...
Est ce que tu as une idée de ce qui peux corrompre la mémoire,
Si tu peux me donner deux trois exemples pour avoir une piste

Merci pour ton aide

as tu verifié que ilwr soit un entier ?? car ce que tu mets ds l'expression scalaire et dans le selecteur doivent etre du meme type ......
:koi:

Tu dois effectivement t'assurer que le sélecteur est bien entier (parce que c'est beaucoup plus simple à règler que la corruption de mémoire).

Corruption de mémoire ? Les causes sont généralement parmi les suivantes :

• Assignation à un vecteur en dehors de sa définition, par exemple : real A(10); A(-300) = 0.0
• Appels de fonctions (ou sub) avec un mauvais type ou un mauvais nombre d'arguments. Pour les fonctions dans des modules, ce type d'erreur est plus improbable grace aux interfaces explicites générés par le compilateur (dans le .mod)

Dans les 2 cas, il est souvent difficile de trouver l'erreur. Les solutions efficaces sont :

• Activer toutes les « switches » de débogage du compilateur
• Essayer avec un autre compilateur. L'idée n'est pas de trouver un meilleur compilateur, mais comme le comportement d'un programme « illégal » sera très différent d'un compilateur à l'autre, on augmente beaucoup nos chances de trouver l'erreur en ayant 2 « diagnostiques » différents (J'ai eu besoin personnellement de 3 compilateurs pour trouver un bogue l'an dernier). Un compilateur commercial avec période d'essai 30 jours fait très bien l'affaire pour cette tâche.