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

program hello
    use windows
    integer :: res
    res = MessageBoxA(0, LOC("Hello, World"), LOC("Window Title"), MB_OK)
end program