pythag.f95

program test1
  integer :: a,b,c

  do a=1,1000
     do b=a+1,1000
        do c=b+1,1000
           if(a*a+b*b==c*c) then
              if (a+b+c==1000) then
                 write(*,*) a,b,c
                 stop
              end if
           end if
        end do
     end do
  end do
end program test1