[GNU Fortran 4.1.3] Problème instruction if

Bonjour,

Je travaille sous Windows et sous Linux. Sous Linux, j'utilise le compilateur GNU Fortran 4.1.3 pour Ubuntu 4.1.2.

J'essaie de compiler un programme avec l'insctruction du style :

Code:

---

1 2	N=1 IF (N==1) WRITE(*,*) 'Ca marche !'

---

Il me renvoie :

ELSE IF clause at (1) requires a scalar LOGICAL expression

Ce qui veut dire qu'il ne considère par des LOGICAL avec test logique d'un entier. Par contre pour un réel ça marche sans probleme :

Code:

---

1 2	R=1.5 IF (R==1.5) WRITE(*,*) 'Ca marche !'

---

Y a-t-il une solution ?

Quel est le type de N? Si c'est un logical, alors

Code:

---

1 2 3 4

logical n n = .true. if (n == .true.) write(*,*) 'Ok.'

---

Salut !

Une bonne habitude à prendre: mets une instruction Implicit None au début de tous tes programmes et déclare toutes les variables.

Jean-Marc Blanc

Citation:

---

Envoyé par DaZumba

Quel est le type de N? Si c'est un logical, alors

Code:

---

1 2 3 4

logical n n = .true. if (n == .true.) write(*,*) 'Ok.'

---

---

logical == .true., c'est compiler dependant. Pour certains, ça marche, pour d'autre, c'est un bit wise ".and.".

En F95, il faut faire if (logical .eqv. .true.), ou beaucoup plus simplement if (logical) ...

Peut être vais-je répondre complètement à coté, mais de souvenir lorsque j'ai rencontré ce type de problème, c'était un problème de synthaxe qui en était la cause. Peut-on écrire un IF sans THEN ?

La synthaxe pour que j'utilise pour cette instruction est la suivante :

Code:

---

1 2 3 4 5 6

IF(condition)THEN ligne de code ... ... ... ENDIF

---