疑问goto语句逻辑判断

大菠萝

想做个逻辑判断 但是不知道语法怎么写 求指点

[Fortran] 纯文本查看 复制代码

PROGRAM AAA

IMPLICIT NONE
LOGICAL Y,N,NN

100 WRITE(*,*) "Y/N?"
    READ(*,*) NN
IF (Y=NN) THEN
    GOTO 200
ELSE IF (N=NN) THEN
    GOTO 300   
ELSE
     GOTO 100
END IF
200 WRITE(*,*) "200"
300 WRITE(*,*) "300"

END

大菠萝

明白了  谢谢