! Copyright (c) 2025 Advanced Micro Devices, Inc. All rights reserved.
! This software is distributed under the MIT License
!
! Original Author: Arjen Tamerus at DiRAC Hackathon Feb 2024
! Released to AMD as sample code
! Modified by Bob Robey, AMD
program loop
        integer,dimension(1024) :: mydata
        integer  :: i

        !$omp target teams loop
        do i=1,1024
                mydata(i) = i
        end do
        !$omp end target teams loop

        print *,"Success"

end program loop
