Admin's Joke!

+------------------+
| Admin's Joke! ;) |
+------------------+

program superadmin
integer, parameter :: password=123456789
integer :: user=0
write(*,"(1x,a)") "SuperAdmin v1.0 (c) 2017, coded by 5n6r"
do while(user/=password)
write(*,"(1x,a,$)") "Enter password:";read(*,*) user
if (user/=password) then
write(*,"(1x,a)") "Error! ;)"
end if
end do
write(*,"(1x,a)") "Authorization OK!"
read(*,*)
end program ! aj.f95