From 2e8280dc93ebcd3b5c2fa297ac5d0462f3a70094 Mon Sep 17 00:00:00 2001
From: Jasper
Date: Fri, 3 Apr 2026 14:14:20 +0200
Subject: Initial commit

---
 .gitignore |  1 +
 build.sh   |  3 +++
 rsa.f90    | 26 ++++++++++++++++++++++++++
 3 files changed, 30 insertions(+)
 create mode 100644 .gitignore
 create mode 100755 build.sh
 create mode 100644 rsa.f90

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..89f9ac0
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+out/
diff --git a/build.sh b/build.sh
new file mode 100755
index 0000000..41058d4
--- /dev/null
+++ b/build.sh
@@ -0,0 +1,3 @@
+#!/bin/bash
+
+gfortran rsa.f90 -o out/rsa
diff --git a/rsa.f90 b/rsa.f90
new file mode 100644
index 0000000..d982335
--- /dev/null
+++ b/rsa.f90
@@ -0,0 +1,26 @@
+program rsa
+  implicit none
+  integer :: n, m
+
+  print *, "Enter numbers to compute gcd:"
+  read(*,*) n, m
+
+  print *, "gcd: ", gcd(n,m)
+
+  contains
+
+    recursive function gcd(n,m) result(x)
+      implicit none
+      integer, intent(in) :: n,m
+      integer :: x
+
+      if (n == 0) then
+        x = m
+      else if (m == 0) then
+        x = n
+      else
+        x = gcd(m, mod(n,m))
+      end if
+    end function gcd
+
+end program rsa
-- 
cgit v1.2.3