        program ex0501
            implicit none
            real speed
            speed=120.0
            if (speed > 100.0) then
                write(*,*)"Slow down"
            end if
        stop
        end program ex0501