     program main
     implicit none
     real A,B
     real C
     DATA A,B /2.0,1.0/

     C=A-B
C    C<0就GOTO 10, C=0就GOTO 20, C>0就GOTO 30
     if ( C ) 10,20,30
10   write(*,*) 'A<B'
     GOTO 40
20   write(*,*) 'A=B'
     GOTO 40
30   write(*,*) 'A>B'
40   stop
     end