RosettaCodeData/Task/Hello-world-Graphical/Fortran/hello-world-graphical-2.f

program hello
    use user32
    integer :: res
    res = MessageBox(0, "Hello, World", "Window Title", MB_OK)
end program