program singlelineif !<<<<<START
    implicit none
    integer :: i,j
    i = 1 
    j = 2
    if(i == 1) print *, ""
    if(j == 2)then
        print *,"asdf"
    end if
end program singlelineif !<<<<<END