    if ( a /= 1 ) then
        write(*,*) "a is small"
    else
        write(*,*) "a is large"
    end if
