program main implicit none integer :: i,j,k i = 1 j = 2 k = 3 if ( i.lt.j .and. k.ne.1 .or. k.gt.k) then print *,":-)" end if end program main |
program
main implicit none integer :: i,j,k i = 1 j = 2 k = 3 if ( i<j .and. k/=1 .or. k>k) then print *,":-)" end if end program main |