Erreur Expecting END PROGRAM statement at (1)
Bonjour,
j'ai un problème avec une fonction qui ne veut pas se compiler. L'erreur est la suivante : Expecting END PROGRAM statement at (1)
D'après ce que j'ai lu c'est une erreur d'initialisation, mais je ne comprends pas j'ai déclaré ma fonction,P, x1 et x2.
Et voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| PROGRAM Fonctioncoordmax
FUNCTION coordmax
DOUBLE PRECISION :: coordmax
TYPE coordonees
DOUBLE PRECISION :: x1,x2
END TYPE
TYPE(coordonees) P
P = coordonees (x1,x2)
PRINT*, "Choisir les 2 coordonnées d'un point"
READ(*,*) x1, x2
P= coordonees (x1, x2)
PRINT*, "Point P =(",P%x1,",", P%x2,")"
IF (x1<x2) THEN
coordmax=x2
ELSE
coordmax=x1
END IF
END FUNCTION coordmax
END PROGRAM Fonctioncoordmax |
Merci d'avance pour vos réponses. ;)
