IER=LINETO(IX2,IY2)，编译报警，The data type of the actual argument doe...

楚香饭

参数是 integer(kind=2)，要多看帮助啊

LINETO, LINETO_W (W*S)
Graphics Function: Draws a line from the current graphics position up to and including the end point.

Module
USE IFQWIN

result = LINETO (x,y)

result = LINETO_W (wx, wy)

x, y
(Input) INTEGER(2). Viewport coordinates of end point.